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ABSTRACT 


THE OH11 STATIC LOGIC TEST IS DESIGNED TO PROVIDE A MEANS 
FOR TESTING THE CORRECT FUNCTION OF ALL READ/WRITE BITS 
IN THE FOLLOWING DH11 REGISTERS: 


DH11 SYSTEM CONTROL REGISTER 

DH11 LINE PARAMETER REGISTER 

QH11 BREAK CONTROL REGISTER 

DHiil SILO STATUS REGISTER 

IN ADDITION, TESTS ARE PROVIDED TO CHECK THE FUNCTION 
OF THOSE BITS THAT ARE READ ONLY IN MAINTENANCE MODE. 
ALSO PROVIDES ARc TESTS OF REGISTER ADDRESSABILITY, 
AND OF THE FUNCTION OF MASTER CLEAR. 


THE DIAGNOSTIC HAS BEEN WRITTEN SO THAT THE TESTING 
Oy lagi IS CONTAINED IN AN INDIVIDUAL 
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33 4.1.3 


37 4.2 





SEQ 3 


REQUIREMENTS 

EQUIPMENT 

PDP-11 FAMILY STANDARD COMPUTER WITH 8KW OF MEMORY 
ASR-33 TELETYPE OR EQUIVALENT 

DH11 ASYNCHRONOUS MULTIPLEXER 

DM11 MAINTENANCE CARD INSTALLED 

STORAGE 

THE PROGRAM LOADS INTO 8KW OF MEMORY 

LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
CAN TO BE USED, OR CAN BE USED WITH XxDP. 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 

AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART 


SWOO=1 

TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
SWO1=1 

STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS IS 000200 

THE RESTART ADDRESS FUR ALL TESTS IS 0002000 

THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
PROGRAM AND/OR OPERATOR ACTION 

INITIAL PROGRAM START 

LOAD PROGRAM INTO MEMORY 

LOAD ADDRESS 000200 

CLEAR CONSOLE SWITCHES 

PRESS START 

THE PROGRAM WILL TYPE “DHi1 STATIC LOGIC TEST" 


AND WILL THEN TYPE “VECTOR ADDRESS-“ AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD. 


ee ee 
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NOTE: 


4.3.1.7 


4.3.1.8 


4.3.1.9 


4.3.2 
4.3.2.1 
4.3.2.2 


4.3.3 

4.3.3.1 
4.3.3.2 
4.3.3.3 
4.3.3.4 
4.3.4 

4.3.4.1 
4.3.4.2 
4.3.4.3 
4.3.4.4 


4.3.4.5 


4.3.4.6 


NOTE: 





SEQ 4 


TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 


FOR THE DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT 
THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STRUCK 


IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM 
WILL TYPE “?" AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 


THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-” 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE 
“2” AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7 


THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT IS 
ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN 


PROGRAM RESTART WITH ALL SWITCHES DOWN 
PERFORM 4.3.1.2 TO 4.3.1.5 


THE PROGRAM WILL TYPE “DH11 STATIC LOGIC TEST” 
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 


PROGRAM RESTART WITH SWOO=1 

LOAD ADDRESS 000200 

SET SWO1=1 

PRESS START 

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
PROGRAM RESTART WITH SWO1=1 

LOAD ADDRESS 000200 

SET SWO1=1 

PRESS START 

THE PROGRAM WILL TYPE “DH11 STATIC LOGIC TEST” 

FROM THE TELETYPE KEYBOARD 


TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY <CARRIAGE RETURN> 


THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED 
AND WILL START TESTING AT THE SELECTED TEST. 


CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE 
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THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT 


58 

59 IS IN THE MIDDLE OF A TEST 

60 

61 NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 
62 SET SWi4=1 BEFORE ENTERING THE TEST ADDRESS 





SEQ 5 
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SEQ 6 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SWi5=1, HALT ON ERROR 

SW1i4=1, LOOP ON CURRENT TEST 

SWi3=1, SUPPRESS ERROR TYPEOUT 

SWii=1, INHIBIT ITERATIONS 

SW1i0=1, ESCAPE TO NEXT TEST ON ERROR 

SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
SWO1=1, START PROGRAM AT SELECTED TEST 

SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 


SUBROUTINE ABSTRACTS 
TRAPCATCHER (LOCATIONS 000000-000776) 


THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 
AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 
WITH THE FOLLOWING SEQUENCE 


IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM 
WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 
WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 

BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 
TRAP OR INTERRUPT OCCURED. 


START (PROGRAM INITIALIZATION) 


THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, 
TYPES THE PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR 
AND CONTROL REGISTER ADDRESSES OF THE DH11 TO BE TESTED. 


BEGIN (PROGRAM START AND RESTART) 


THIS ROUTINE IS ENTERED IMMEDIATLY AFTER “START” 
AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED. 
THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 
AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 

TESTING WILL BEGIN. IF SWO1=0 WHEN THIS ROUTINE IS ENTERD 
TESTING WILL START AT Ti (TEST 1). IF SWO1=1 WHEN 

THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC 
ENTERED FROM THE TELETYPE KEYBOARD. 





~~ = 
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3.2.5 


5.2.6 





SEQ 7 


=OP CEND OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 
HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE MAINDEC 
IDENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS 
AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 
UNDER ACT11 OR ODP, THE ROUTINE CHECKS FOR RETURN TO 
THE ACT11 OR DDP MONITOR. IF THE PROGRAM IS NOT UNDER 
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 


SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY 

A) IF SW10=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
IN SEQUENCE, AFTER CLEARING ERROR FLAGS. 

B) IF SWii=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 

C) IF SWi4=1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGARDLESS OF THE ITERATION COUNT. 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 

TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE 
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 
IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER 
TO THE NEXT TEST IN SEQUENCE. THE THE NUMBERS ARE NOT 
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 


SCOPiR (FREEZE ON CURRENT DATA) 


THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE 

THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 
VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS ENTERED IN 
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS. 

IF SWO9=1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE 
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 
UNDER TEST CONTINUOUSLY WITH THE SAME DATA. IF THIS 
OPTION IS SELECTED, THE ROUTINE “SCOPER” IS NEVER ENTERED 
AND ITERATION COUNTS WILL NOT BE UPDATED. 
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a.a.7 


5.2.8 





ERRORS CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS: 
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION 
ITSELF IS FETCHED. THE 8 LSB OF THE EMT 
INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 
WSED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 
DATA STORAGE LOCATIONS. 
B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 
DURING THIS PASS, A COMPLETE ERROR REPORT IS MADE 
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER 
IS TYPED. IF SWi3=1, NO ERROR TYPEOUT IS MADE. 
C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SWi5=1 
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO 
THE ERROR ROUTINE IN RO. IF SWi5=0, THE PROGRAM WILL 
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST. 
D) IF SWi0=0, THE ROUTINE WILL RETURN 
TO THE TEST IN PROGRESS. IF SW1i0=1, THE ROUTINE WILL 
ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT 
TEST IN SEQUENCE, THRU THE ROUTINE “SCOPER”. 


TRPSRV (CTRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 
THAT CAUSED TH PROGRAM INTERRUPT, AND TRANSFERS CONTROL 
TO THE ROUTINE THRU THE TABLE “TRPTAB” USING THE 8 LSB 
OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 
THE ROUTINE TO BE ENTERED. 


SEQ 8 
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SEQ 9 


PROGRAM AND OR OPERATOR ACTION 
PROGRAM START WITH ALL SWITCHES DOWN 


REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 
BEHAVIOR. 


AFTER “R” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 
WILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 
OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 
AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST. 

WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM 

WILL TYPE "CZDHA-D” AND THEN RESTART TESTING AT TEST 1 
(LOCATION T1 IN THE PROGRAM). 


IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 


PROGRAM START WITH SWOO=1 

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
PROGRAM START WITH SWO1i=1 

REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 


TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED 
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2 


AFTER “CZDHA-D” HAS BEEN TYPED, THE PROGRAM WILL 
RESUME TESTING AT TEST 1 


PROGRAM OPERATION WITH SWiS5=1 

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, 
THE PROGRAM WILL HALT AFTER THE ERROR TYPEOUT, AND 

THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE 
DISPLAYED IN RO. 

PROGRAM OPERATION WITH SW1i3=1 

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 
PROGRAM OPERATION WITH SWii=1 


ip AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE 
Y 


PROGRAM OPERATION WITH SW10=1 


SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR 
THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM 
WILL PROCEED TO THE NEXT TEST IN SEQUENCE. 





a a rrr et 


SEQ 10 
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1 
: - (CONT‘D) 
: 5.3.8 PROGRAM OPERATION WITH SW14=1, OR SWO9=1 
6 THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 
: SEE SECTION 6.3 FOR THEIR USE. 
“ 6. ERRORS 
- 6.1 ERROR HALTS 
13 THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 
i. IS AS FOLLOWS 
16 PC+2 MESSAGE 
17 HEADER CIF APPLICABLE) 
- DATA CIF APPLICABLE ) 
20 WHERE 
21 PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2 
22 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 
23 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 
24 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 
25 IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 
26 PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 
4H DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 
29 IF NO DATA IS ASSOCIATED WITH THE ERROR 
THE COMPLETE ERROR MESSAGE IS TYPED. 
= 6.1.1 ERROR DESCRIPTIONS 
SEE LISTING FOR DETAILS OF ERRORS 
7 6.2 ERROR RECOVERY 
se 6.2.1 SwWi5=0 
40 IF THE PROGRAM IS RUN WITH SWi5=0, NO OPERATOT ACTION IS 
41 REQUIRED TO CONTINUE TESTING 
Pe 6.2.2  SwWiS=1 
a4 IF THE PROGRAM IS RUN WITH SWi5=1, TO CONTINUE TESTING 
45 AFTER THE PROGRAM HAS HALTED, PRESS THE FROCESSOR 
rs CONSOLE CONTINUE SWITCH 
yo 6.3 SCOPE LOOPING 
50 6.3.1 TO SCOPE ON A SPECIFIC TEST, SET SWi4=1 AND SWi3=-1 
Si THIS WILL CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE 
Z SAME TEST, AND WILL CAUSE ALL ERROR TYPEOUTS TO SE INHIBITED 
54 6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN 
55 A TEST, SET SWO9=1 TO FREEZE THE DATA 


56 (SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 
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1 
: 6. (CONT’D) 
: 6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 
: PERFORM SECTION 4.3.4 WITH SW14=1 
: Lp RESTRICTIONS 
11 7.1 STARTING 
rf THE DH1ii TEST CARD MUST BE INSTALLED 
f 7.2 RUNNING 
; ma 
; : 8. MISCEL!ANEOUS 
+ 8.1 EXECUTION TIME 
22 THE TIME FOR ONE PASS OF THE PROGRAM CEND OF 
23 TYPEOUT OF CZDHA-D TO END OF TYPEOUT OF CZDHA-D) 
= IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW 
26 TIME 
Hi PROCESSOR 
29 POP-11/04 
30 05 
31 10 
32 15 
33 20 
34 24 
35 34 
36 35 
37 40 
38 4a 
39 45 
40 55 
41 60 
42 70 
43 7A 
44 84 
45 
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SEQ 12 


PROGRAM DESCRIPTION 


THIS PROGR/-A IS A LOW LEVEL TEST OF DH11 CONTROL 
REGISTERS. 


THE PROGRAM BEGINS BY CHECKING THE ADDRESSABILITY OF 

EACH DH1i1 REGISTER WLTHCUT CONCERN FOR ANY DATA CONTENT. 
THE PURPOSE OF THESE TESTS IS TO VERFIY THAT THE ADDRESS 
SELECTORS FOR THE VARIOUS REGISTERS ARE FUNCTIONING. 


THE NEXT SET OF TESTS VERIFIES THAT EACH DHil REGISTER 
CAN BE MASTER CLEARED, AFTER ALL READ/WRITE BITS HAVE 
BEEN SET 10 1. {TS TEST DOES NOT VERIFY THAT ALL 
BITS HAVE BEEN SE’, ONLY THAT THEY HAVE BEEN CLEARED. 


THE NEXT GROUP OF TESTS EXERCISES EACH READ/WRITE BIT 
IN THE DHil SYSTEM CONTROL REGISTER, IN BOTH NORMAL AND 
MAINTENANCE MODES OF OPERATION. IN NORMAL MODE, EACH 
READ/WRITE BIT IS SET AND CLEARED, AND READ ONLY BITS 
ARE CHECKED FOR READ ONLY FUNCTION. 


IN MAINTENANCE MODE, THE BITS THAT ARE 
READ ONLY IN NORMAL MODE ARE CHECKED FOR READ/WRITE OPERATION. 


THE NEXT GROUP OF TESTS CHECKS EACH READ/WRITE BIT 

OF THE DH11 LINE PARAMATER REGISTER, BREAK CONTROL REGISTER 
AND SILO STATUS REGISTER FOR READ/WRITE CAPABILITY. EACH 
BIT OF EACH REGISTER IS CHECKED IN AN INDIVIDUAL TEST LOOP. 


THE NEXT GROUP OF TESTS CHECKS CLEARING OF A SINGLE 
BIT IN EACH OF THE LINE PARAMETER, BREAK CONTROL AND 
tte REGISTERS WITH ALL OTHER READ/WRITE BITS 


THE FINAL TWO TESTS VERIFY THAT A MOVE BYTE TO ONE BYTE 
OF THE SYSTEM CONTROL REGISTER DOES NOT AFFECT THE OTHER BYTE 
OF THE SYSTEM CONTROL REGISTER. 


AFTER ALL TESTS HAVE BEEN COMPLETED, THE PROGRAM TYPES 
"CZDHA-D” AND RESTARTS THE SEQUENCE OF TESTING JUST DESCRIBED. 


LISTING 
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; DHMAC-A - DH1iil MACRO LIBRARY 
; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


-LIST ME 
-NLIST MC,MD,CND 


373 
3 


743 ; (CMS REPLACEMENT HISTORY 


746 ; #9 SKONETSKI 26-APR-1985 16:23:08 "FIXED TYPO CAUSING ASSEMBLY ERRORS“ 
747 ; #8 SKONETSKI 22-APR-1985 16:48:03 “TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED” 
748 ; *7 SKONETSKI 22-APR-1985 16:26:04 “ADDED CODE TO SET VECTORS FOR PWR FAIL, ERRORS, AND EMT 


749 ; *6 SKONETSKI 22-APR-1985 14:22:35 “FIXED BRANCH ERROR IN END OF PASS ROUTINE” 
—., a — ; #5 SKONETSKI 22-APR-1985 08:28:54 “FIXED BUG CAN OCTASC MACRO CALL WAS WRONG) AND ADDED A 


MESSAGE. 
751 ; #4 SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTWARE SWITCH REG SUPPORT. BUT UNTESTED” 
752 ; #3 SKONETSKI 12-APR-1985 10:34:52 “FIXED PROBLEMS WITH SPURIOUS CR/LFS” 
; *2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI 


; #1 SKONETSKI 11-APR-1985 15:49:05 “LIBRARY FOR DHi1 DIAGNOSTICS” 


753 
TCH REGISTER“ 
754 





en ener errr ee reer re ee 
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2 -LIST ME 
3 -NLIST MC,MD,CNOD 
S 000000 «HEADER ¢/1972,1978,1985/,t/DH11 STATIC LOGIC TEST/,*t/CZDHA-D/ 
sSTARTING — 
s;LOAD PROGRAM 
sLOAD ADDRESS 000200 
sPRESS START 
;PROGRAM WILL TYPE DH1i1 STATIC LOGIC TEST 
sPROGRAM WILL TYPE “VECTOR ADDRESS-” 
;TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
sFOR THE DHiil TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
sPROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-” 
;TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
sFOR THE OHil TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 3; 3 
sPROGRAM WILL TYPE “R” TO INDICATE THAT TESTING HAS STARTED 
sAT THE END OF A PASS, PROGRAM WILL TYPE ” CZDHA-D ” 
sAND THEN RESUM TESTING 
-TITLE CZOHA-D 
000000 -ENABLE ABS 
-NLIST MC.MD,CND 
LIST 
6 0C0000 . SYMBOLS 
sSWITCH REGISTER OPTIONS 
100000 SW15=100000 :*1,HALT GN ERROR 
040000 SW14 =40000 3*1,LO0P ON CURRENT TEST 
020000 SW13=20000 ;*1, INHIBIT ERROR TYPEOUT 
010000 SW12=10000 
004000 SW11=4000 :*1, INHIBIT ITERATIONS 
002000 SW10=2000 :*1,ESCAPE TO NEXT TEST ON ERRGR ; 3 
001000 SW09=1000 :*1,LO0P WITH CURRENT DATA 
000400 SW08 =400 
000100 SW06=100 
000040 SW05=40 
000020 SW04=20 
000010 SWO3=10 
000004 SWO02=4 
000002 SWO1=2 sRESTART PROGRAM AT SELECTED TEST 
000001 SWO0O0=1 sRESELECT VECTOR AND CONTROL REGISTER 


sADDRESS AFTER PROGRAM RESTART 
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0 
sREGISTER DEFINITIONS 
000000 RO=80 s;GENERAL REGISTER 
000001 Ri=81 sGENERAL REGISTER 
000002 R2=82 sGENERAL REGISTER 
000003 R3=83 s;GENERAL REGISTER 
000004 R4=84 sGENERAL REGISTER 
000005 RS=85 s;GENERAL REGISTER 
000006 SP =86 sPROCESSOR Ae POINTER 
000007 PC=87 sPROGRAM COUNTE 
sLOCATION EQUIVALENCIES ; 3 
;SWR=177570 sCONSOLE SWITCH REGISTER ; 4 
sLIGHTS=177570 ;PDP-11/45 DISPLAY REGISTER ; 4 
177776 PS*177776 sPROCESSOR STATUS WORD 
021544 STACK=ENDCOD +200 sSTART OF PROCESSOR STACK ; 3 
sINSTRUCTION DEFINITIONS 
005746 PUSH1SP=5746 sPECREMENT PROCESSOR STACK 1 WORD 
005726 POP1SP=5726 sINCREMENT PROCESSOR STACK 1 WORD 
010046 PUSHRO = 10046 sSAVE RO ON STACK 
012600 POPRO= 12600 sRESTORE RO FROM STACK 
024646 PUSH2SP=24646 ;DECREMENT STACK TWICE 
022626 POP2SP =22626 sINCREMENT STACK TWICE 
: 
-MACRO HLT $A 
EMT $A 
-ENDM HLT 
: 
i 
100000 BIT15=100000 
040000 BIT14=40000 3 3 
020000 BIT13=20000 
019000 8IT12=10000 
004000 8IT11=4000 
002000 BIT10=2000 
001000 BITO9=1000 
000400 BIT08=400 
000200 BITO7=200 
000100 BITO6=100 
000040 BIT05=40 
000020 BIT04=20 
000010 BITO3=10 
000004 BITO2=4 
000002 BITO1=2 
000001 BITOO=1 
1 000000 -CATCH 








_- 
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0 ; TRAPCATCAER FOR ILLEGAL INTERRUPTS 
000000 20 
000200 .REPT 200 
.+2 sUNEXPECTED TRAP TO THIS LOCATION 
— HALT sEXAMINE STACK TO FIND CAUSE 
000000 000002 +2 ;UNEXPECTED TRAP TO THIS LOCATION 
000002 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000006 +2 sUNEXPECTED TRAP TO THIS LOCATION 
COC006 9000000 HALT sEXAMINE STACK TO FIND CAUSE 
000010 000012 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000012 HALT sEXAMINE STACK TO FIND CAUSE 
000014 000016 + sUNEXPECTED TRAP TO THIS LOCATION 
000016 HALT sEXAMINE STACK TO FIND CAUSE 
000020 009022 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000022 HALT sEXAMINE STACK TO FIND CAU 
000024 000026 +2 ;UNEXPECTED TRAP TO THIS LOCATION 
000026 HALT sEXAMINE STACK TO FIND CAUSE 
000030 000032 r4 sUNEXPECTED TRAP ¥o THIS LOCATION 
000032 HALT sEXAMINE STACK TO FIND CAUSE 
000034 000036 +2 ;sUNEXPECTED TRAP TO THIS LOCATION 
000036 000000 HALT sEXAMINE STACK TO F AUSE 
000040 000042 +2 s UNEXPECTED TO THIS LOCATION 
0C0042 000000 HALT sEXAMINE STACK TO c 
000044 000046 +2 ;UNEXPECTED TRAP TO THIS LOCATION 
000046 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000050 000052 .*2 sUNEXPECTED TRAP TO THIS LOCATION 
000052 000000 HALT sEXAMINE STACK TO c 
000054 000056 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000056 000000 HALT sEXAMINE STACK 
000060 000062 .*2 3; UNEXPEC TO THIS LOCATION 
000062 000000 HALT sEXAMINE STACK TO FIND C 
000064 000066 +2 ;UNEXPEC TO THIS LOCATION 
000066 000000 T sEXAMINE STACK TO FIND CAUSE 
000070 000072 +2 ;UNEXPEC TRAP TO THIS LOCATION 
000072 000000 HALT T EXAMINE STACK TO FIND CAUSE 
000074 000076 +2 : | OQ THIS LOCATION 
000076 000000 T sEXAMINE STACK TO 
000100 000102 ¢2 ; UNEXPECTED TO THIS LOCATION 
000102 000000 HALT sEXAMINE STACK TO c 
000104 000106 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000106 000000 HALT ;EXAMINE STACK TO 
000110 0001i2 +2 ; UNEXPEC TO THIS LOCATION 
000112 + sEXAMINE STACK CAUSE 
000114 000116 +2 ; UNEXPECTED AP TO THIS LOCATION 
000116 HALT sEXAMINE STACK TO 
000120 000122 +2 sUNEXPECTED TO THIS LOCATION 
000122 000000 HALT sEXAMINE STACK TO 
009124 000126 2 ; UNEXPEC TRAP TO THIS LOCATION 
000126 000000 HALT ; EXAMINE STACK TO FIND CAUSE 
000130 000132 +2 ;UNEXPECTED TRAP TO THIS LOCATION 
000132 T ;EXAMINE STACK TO FIND CAUSE 
000134 000136 +2 ;UNEXPECTED TRAP TO THIS LOCATION 
000136 HALT SEXAMINE STACK TO FIND CAUSE 
000140 000142 +2 sUNEXPECTED TRAP Py THIS LOCATION 
000142 HALT SEXAMINE STACK TO FIND CAUSE 
000144 000146 +2 sUNEXPECTED TRAP "0 THIS LOCATION 
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000146 
000150 








sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK FIND CAUSE 


FIND CAUSE 
TED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 

awer STACK TO FIND CAUSE 
TED TRAP TO THIS LOCATION 

v EXAMINE hig TO FIND CAUSE 
TED TRAP TO THIS LOCATION 

;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE Ag TO FIND 


FIND CAUSE 

; UNE TED TRAP TO THIS LOCATION 

/ EXAMINE STACK TO FIND 

sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


TO 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 





SEQ 17 
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sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
IND CAUSE 


sUNEXPEC TO THIS LOCATION 
s EXAMINE Aig "ro FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
SEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOTATION 
;EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
;EXAMINE STACK TO FIND CAUSE 

TO ng Flay 


IND CAUSE 
; UNEXPECTED og! “FP THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP "0 THIS LOCATION 


SEQ 18 
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sEXAMINE STACK TO FIND CAUS 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO pg IO gl 


AUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP i THIS LOCATION 


3E STACK IND C 
;UNEXPECTED TRAP TO THIS LOCATION 
;EXAMINE 


STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 


IND CAUSE 
;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


SEQ 19 
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s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK 710 FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


SEQ 20 











a ee ae cae Re ee 


SEQ 21 
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0 ;STANDARD INTERRUPT VECTORS 
000200 .-=200 
000200 000167 000600 JMP START :GO TO START OF PROGRAM 
1 000204 . TRPDEF 
;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
;AT LOCATION “TRPTAB” 
000204 TRPDEF SCOPE,t/SCOPE LOOP AND ITERATION HANDLER/ 
104400 SCOPE=TRAP+Y ;SCOPE LOOP AND ITERATION HANDLER 
000001 Y=Yel 
000204 TRPDEF TYPE,t/TELETYPE OUTPUT ROUTINE/ 
104401 TYPE=TRAP+Y ; TELETYPE OUTPUT ROUTINE 
000002 Y=Yel 
000204 TRPDEF OCTASC,t/OCTAL TO ASCII CONVERSION/ 
104402 OCTASC=TRAP+Y sOCTAL TO ASCII CONVERSION 
000003 Y=Yel 
000204 TRPDEF INSTR,*t/INPUT ASCII STRING/ 
104403 INSTR=TRAP +Y sINPUT ASCII STRING 
000004 Y=Yel 
000204 TRPDEF INSTER,t/STRING INPUT ERROR/ 
104404 INSTER=TRAP+Y ;STRING INPUT ERROR 
000005 Y=Yel 
000204 TRPDEF PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/ 
104405 PARAM=TRAP +Y ;CONVERT STRING TO OCTAL, CHECK LIMITS 
000006 Y=Yel 
000204 TRPDEF SAVOSP,t/SAVE RO-RS, PC/ 
104406 SAVOSP=TRAP+Y :SAVE RO-RS, PC 
000007 Y=Yel 
000204 TRPDEF RESOS,t/RESTORE RO-RS/ 
104407 RESOS=TRAP+Y sRESTORE RO-RS 
000010 Y2Yel 
000204 TRPDEF SCOPE1,*t/CHECK FOR FREEZE ON CURRENT DATA/ 
104410 SCOPE1=TRAP+Y ;CHECK FOR FREEZE ON CURRENT DATA 
000011 Y=Yel 
2 000046 . 746 
3 000046 016610 LOGICAL 
4 000052 752 
5 000052 040000 40000 
6 -MACRO CODEM1 
7 MOV DHSSR, DHSLR ;SET UP ADDRESS OF SILO 
8 INC DHSLR :STATUS REGISTER HIGH BYTE 
4 -ENDM CODEM1 
10 000054 -START DHRVEC,3.4,O0HSCR,0O,177776,7,10,,..1 
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0 


001000 


177570 
177570 


012767 


005067 


177646 


016722 


176670 


177650 


- =1000 


.IIF NB 
.ITIF NB 


SWR: 


LIGHTS: . 
000340 176764 START: 


2$: 


sPROGRAM INITIALIZATION 

;LOCK OUT INTERRUPTS 

;SET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 
;CLEAR PROGRAM FLAGS AND COUNTS 
;TYPE TITLE MESSAGE 

<>, sDETERMINE MEMORY SIZE 


<>, ;SET UP TRACE TRAP RETURN 

WORD 177570 ; SWITCH DHSCR ADDRESS 

WORD 177570 ; LIGHTS 

MOV #340 ,PS ;LOCK OUT INTERRUPTS 

MOV #STACK ,SP ;SET UP PROCESSOR STACK 

MOV #24 ,R2 ; POINT TO VECTOR AREA 

MOV @PFAIL ,CR2)+ ;SET UP POWER FAIL TRAP 

MOV #340, (R2)+ ;SERVICE AT LEVEL 7 

MOV RRORS, (R2)+ sERROR HANDLER 

MOV #340, (R2)+ ;sSERVICE AT LEVEL 7 

MOV @TRPSRV, CR2)+ ;GENERAL HANDLER DISPATCH SERVICE 

MOV #340, ¢ ;SERVICE AT LEVEL 7 

CLR STFLG ;CLEAR TEST START FLAG 

CLR PASCNT ;sCLEAR PASS COUNT 

CLR ERRCNT ;CLEAR ERROR COUNT 

CLR ERRFLG ;CLEAR ERROR FLAG 

CLR ERRFLG ;CLEAR LAST ERROR PC 

MOV 4, -(SP) ; PUSH TRAP VECTOR 

MOV 6, -CSP) 

MOV #i$, 4 ; SET UP TRAP VECTOR 

TST OSWR ; TEST SWITCH REGISTER ADDRESS 

BR 2$ ; IF SUCCESSFUL, LEAVE IT ALONE 

MOV #176, SWR ; POINT TO SOFT SWITCH DHSCR 

CLR LIGHTS ; O MEANS WE ARE NOT GOING TO USE 

TST (SP)+ ; CLEAN UP STACK 

TST (SP)>+ — 

MOV (SP)+, 6 

MOV CSP)+, 4 

TYPE »MTITLE ;TYPE TITLE MESSAGE 

TST INIFLG ;CHECK INITIALIZATION FLAG 

<DHRVEC> 
:IF NOT 0, CHECK SWITCHES 
;FOR REINITIALIZATION 

BNE BEGIN ;IF NOT 0, START TEST 

<> 

CLR RO 

MOV $23,304 ;SET UP TIME OUT RETURN 

TST CRO)+ ;WILL TRAP WHEN NO MEMORY 

BR i$ ;LOCATION RESPONDED, CONTINUE 

MOV RO ,HCORE ;RO CONTAINS ADDRESS OF 

SUB #2 ,HCORE ;NON EXISTANT MEMORY 

MOV 04 sRESTORE TRAPCATCHER 


EE TS TS TT A A TR 


SEQ 22 


ee ee oe oe oe [es of ot oe oe ae ae 


Pp 


i Be Be ee | 


- 
SERS BE Coes eee 


™TS™ ; 4 





001162 





000404 


032777 
001445 


012701 


016767 
005267 


005767 
001002 
005167 


000001 


000300 
000302 
000004 


001000 


016540 
016534 


016602 
016574 


177606 


016540 


.ENOC 
-IF NB 


TRACER: 


i$: 


i$: 


BYTE 
-BYTE 
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#1$,8010 

RO 

 pleal aaa 
@RTI, TRTRET 
#12,9¢10 
#TRTRET , 016 


VEC2 


INIFLG 
VEC2 


#SWOO, OSWR 
BEGIN 


DHSSR, OHSLR 
DHSLR 


INIFLG 


sPROGRAM START 


sCHECK FOR PROGRAM START AT SELECTED ADDRESS 


SEQ 23 


;SET UP ILLEGAL INSTRUCTION TRAP RETURN 
300 11/40, 11/45 INSTRUCTION 
311/40,45 RTT RETURN FROM TRACE TRAP 


31105,10,20 RTI RETURN FROM TRACE TRAP 
sRESTROE TRAPCATCHER 
;SET UP TRACE TRAP VECTOR 


;sIF INITIALIZE FLAG=0 
;GET VECTOR AND CSR ADDRESS 


;IF SWOO=1, GET NEW VECTOR ; 4 
;AND CSR 
; 4 
; 4 
sRESTORE TRAPCATCHER 
;IN FLOATING VECTOR AREA 
;INPUT ADDRESS OF DEVICE VECTOR 
sMESSAGE “VECTOR ADDRESS-” 
;sCONVERT STRING TO OCTAL 
;LOW LIMIT 
sHIGH LIM s 3 


IT 
sLOCATIONS TO BE FILLED 
sNUMBER OF LOCATIONS 
;LSB MASK 
s;INPUT ADDRESS OF DEVICE CSR 
sMESSAGE “CONTROL REGISTER ADDRESS-” 
sCONVERT STRING TO OCTAL 
:LOW LIMIT 
sHIGH LIMIT 
sLOCATIONS TO BE FILLED 
s;NUMBER OF LOCATIONS 
;LSB MASK 


sSET UP ADDRESS OF SILO 
sSTATUS REGISTER HIGH BYTE 


sIF INITIALIZATION FLAG 
:IS CLEARED 
;SET IT 














SEQ 24 
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216 


001472 


217 001474 


012767 


012767 
012767 
012767 


000002 
012737 
012737 
005777 


000406 
016705 
104000 
012716 
000002 
012737 


005037 
104400 


000340 
021544 
000002 


001400 
016522 


016514 


020522 
016450 


016340 


001460 


000006 
000006 


176462 
177452 


016472 


176370 
016442 
016430 


000004 


000006 


000004 


BEGIN: MOV #340 ,PS ;LOCK OUT INTERRUPTS 
MOV #STACK ,SP ;SET UP PROCESSOR STACK 
BIT #SW01,2SWR ;IF SWO1=1 ; 4 
BEQ 1$ ;GET PC FOR PROGRAM START 
INSTR ;GET PC 
MTSTPC :MESSAGE “TEST PC” 
PARAM ;CONVERT STRING TO OCTAL 
17500 
RETRN 
-BYTE 1 
BYTE i 
BR 2$ 
1$: MOV #T1,RETRN sNORMAL START, TEST 1 
TST STFLG ;IF LOOPING, BYPASS TYPEOUT 
BNE 3$ 
COM STFLG 
2s: TYPE MR ;TYPE “R” TO INDICATE START 
3$: JMP SRETRN sSTART TESTING ; 3 
RGADRS t/SCR/,t/DH1i1 SYSTEM CONTROL/ 
;DH11 SYSTEM CONTROL REGISTER ADDRESSING TEST 
;VERIFY THAT DHil SYSTEM CONTROL REGISTER RESPONDS TO ADDRESSING 
;IF DHil SYSTEM CONTROL REGISTER DOES NOT RESPOND, A BUSS ERROR TRAP 
;WILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 
TS \XN,100,2$ 
Tl: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
areas MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
7 <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA s $ 
-ENDC 
XN=XNeo1 
MOV #1$, 304 ;SET UP TIME OUT TRAP 
MOV #340 , 806 
TST SDHSCR ;ADDRESS DH1ii SYSTEM CONTROL 
sREGISTER 
BR 3$ ;NO TRAP, REGISTER RESPONDS 
;T0 ADDRESSING 
1$: MOV DHSCR,RS sREGISTER DID NOT RESPOND 
~s ; ;sTIME OUT TRAP, DH1iil SYSTEM CONTROL 
;sREGISTER DID NOT RESPOND 
2s: MOV #33,(SP) ;SET UP TO RETURN FROM TRAP 
RTI ;RETURN FROM TRAP 
3$; MOV #6 ,804 
CLR 896 sRESTORE TRAP CATCHER 
SCOPE ;CHECK FOR ITERATIONS, LOOP 
RGADRS +t/NRC/,t/DH1i1l NEXT RECEIVED CHARACTER/ 





s;DH11 NEXT RECEIVED CHARACTER REGISTER ADDRESSING TEST 

sVERIFY THAT DH11 NEXT RECEIVED CHARACTER REGISTER RESPONDS TO ADDRESSING 

sIF DH11 NEXT RECEIVED CHARACTER REGISTER DOES NOT RESPOND, A BUSS ERROR TRAP 
sWILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 














SEQ 25 
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216 


001662 
219 001664 


| 
a 


012767 
012767 
012767 


104000 


012767 
012767 
012767 


000406 
016705 
104000 
012716 
000002 
012737 


005037 
104400 


016162 


016154 


001650 


000006 
000006 


000004 


016240 


000004 
000006 


000004 


TS \XN,100,2$ 


T2: MOV #340 .PS ;DISABLE ALL INTERRUPTS 
MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
-« MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV &,FREEZ1 ;SET UP TO LOOP WITH DATA 5 S 
-ENDC 
XN=XNeol1 
MOV $13,364 ;SET UP TIME OUT TRAP 
MOV $340 ,8¢6 
TST SDHNRC ;ADDRESS DH1i1 NEXT RECEIVED CHARACTER 
;REGISTER 
BR 3$ ;NO TRAP, REGISTER RESPONDS 
;T0 ADDRESSING 
is: MOY DHNRC,RS ;sREGISTER DID NOT RESPOND 
at : ;TIME OUT TRAP, DHil NEXT RECEIVED CHARACTER 
;sREGISTER DID NOT RESPOND 
2s: MOV #3$,(SP) ;SET UP TO RETURN FROM TRAP 
RTI ;RETURN FROM TRAP 
3%: MOV 96 ,804 
CLR 306 sRESTORE TRAP CATCHER 


SCOPE s;CHECK FOR ITERATIONS, LOOP 
t/LPR/,*/DH 11 LINE PARAMETER/ 


sDH 11 LINE PARAMETER REGISTER ADDRESSING TEST 

sVERIFY THAT DH 11 LINE PARAMETER REGISTER RESPONDS TO ADDRESSING 

sIF OH 11 LINE PARAMETER REGISTER DOES NOT RESPOND, A BUSS ERROR TRAP 
sWILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 


TS \XN,100,2$ 


RGADRS 


T3: MOV $340 ,PS sDISABLE ALL INTERRUPTS 
MOV #100 , ICOUNT sSET UP FOR 100 ITERATIONS 
ee MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
; <> 
MOV #,FREEZ1 :SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN#=XNel 
MOV 013,904 ;SET UP TIME OUT TRAP 
MOV $340, 
TST SDHLPR sADDRESS DH 11 LINE PARAMETER 
sREGISTER 
BR 3% ;NO TRAP, REGISTER RESPONDS 
:7T0 ADDRESSING 
i$; MOV DHLPR,RS sREGISTER DID NOT RESPOND 
a ; ;TIME OUT TRAP, DH 11 LINE PARAMETER 
sREGISTER DID NOT RESPOND 
2s: MOV 03% ,(SP) 3SET UP TO ag oy FROM TRAP 
; RTI sRETURN FROM TRA 
_3$: MOV $6 , 804 
CLR ate sRESTORE TRAP CATCHER 
SCOPE sCHECK FOR ITERATIONS, LOOP 
RGADRS t/BA/,t/DH1i1 BUS ADDRESS/ 


;0H11 BUS ADDRESS REGISTER ADDRESSING TEST 
;VERIFY THAT DHi1 BUS ADDRESS REGISTER RESPONDS TO ADDRESSING 








een 





SEQ 26 
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220 


012767 
012767 
012767 


000005 
012737 
012737 
005777 
000406 


016705 


104000 


012716 
000002 


012767 
012767 
012767 


000006 
012737 
012737 
005777 
000406 
016705 
104000 
012716 
000002 
012737 
005037 
104400 


000340 
000100 
001736 


001730 
000340 
016070 


016062 


001744 


000006 
000006 


002024 
015776 


015770 


002040 


176104 
016156 
016144 


000004 
000006 


000004 


TS \XN,100,2$ 
T4: 


;IF DHil BUS ADDRESS REGISTER DOES NOT RESPOND, A BUSS ERROR TRAP 
sWILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 








MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
- MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNeo1 
MOV #1$,804 ;SET UP TIME OUT TRAP 
MOV #340 , 846 
TST SDHBA ;sADDRESS OHii1 BUS ADDRESS 
sREGISTE 
BR 3$ sNO TRAP, REGISTER RESPONDS 
;T0 ADDRESSING 
i$: MOV DHBA ,RS ;sREGISTER DID NOT RESPOND 
aT : sTIME OUT TRAP, DHii BUS ADDRESS 
sREGISTER DID NOT RESPOND 
2$: MOV #3$,(SP) ;SET UP TO RETURN FROM TRAP 
RTI sRETURN FROM TRAP 
3$: MOV 96,804 : 
CLR 806 sRESTORE TRAP CATCHER 
SCOPE ;CHECK FOR ITERATIONS, LOOP 
RGADRS +t/8C/,t/DHi1 BYTE COUNT/ 
;0H11 BYTE COUNT REGISTER ADDRESSING TEST 
;VERIFY THAT DH11 BYTE COUNT REGISTER RESPONDS TO ADDRESSING 
;IF DH1l BYTE COUNT REGISTER DOES NOT RESPOND. A BUSS ERROR TRAP 
sWILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 
TS \XN,100,2$ 
TS: MOV @340 PS sDISABLE ALL INTERRUPTS 
MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
“—- MOV 02% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
i <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNeol 
MOV 013,804 :SET UP TIME OUT TRAP 
MOV 0340 , 806 
TST a0HBC sADDRESS OH1i1 BYTE COUNT 
sREGISTER 
BR 3$ - TRAP, REGISTER RESPONDS 
: 
1$: MOV OHBC .RS sREGISTER DIO NOT RESPOND ms 
a : sTIME QUT TRAP, OH11 BYTE COUNT 
sREGISTER DID NOT RESPOND 
2s: MOV #33,(SP) :SET UP TO RETURN FROM TRAP 
RTI sRETURN FROM TRAP 
3$: MOV 6 , 304 
CLR 846 sRESTORE TRAP CATCHER 
SCOPE ;CHECK FOR ITERATIONS, LOOP 
RGADRS ¢t/BCR/,*+/DH1i BREAK CONTROL/ 
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222 


012767 
012767 
012767 


000007 
012737 
012737 
005777 


000406 
016705 
104000 
012716 
000002 
012737 


005037 
104400 


012767 
012767 
012767 


000010 
012737 
012737 
005777 


000406 
016705 
104000 
012716 


000002 
012737 


002134 


175714 
015766 
015754 


000004 
000006 


000004 


000004 


TS \XN,100,2$ 
T6: 


sDH11 BREAK CONTROL REGISTER ADDRESSING TEST 


;sVERIFY THAT DHi1 BREAK CONTROL REGISTER RESPONDS TO ADDRESSING 





SEQ 27 


:IF DH1il BREAK CONTROL REGISTER DOES NOT RESPOND, A BUSS ERROR TRAP 
sWILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 


MOV 
MOV 
MOV 
.IF NB <> 
MOV 
-ENDC 
XN=XNel 
MOV 
MOV 
TST 
BR 
1$: MOV 
HLT 
EMT 
23: MOV 
RTI 
38: MOV 
CLR 
sc 
RGADRS 


#340,PS 
#100, ICOUNT 
2%, ESCAPE 
®,FREEZ1 
13,804 
$340 ,806 
S0HBCR 

3$ 
DHBCR,.RS 
0 

0 
@3$.(SP) 


06.804 
866 


OPE 
t/BAR/ ,*/BUS ACTIVE/ 


sDISABLE ‘LL INTERRUPTS 
sSET UP FU? 100 ITERATIONS 
s;SET UP TO ESCAPE TO NEXT TEST 


s;SET UP TO LOOP WITH DATA 


sSET UP TIME OUT TRAP 


sADDRESS DH11 BREAK CONTROL 
sREGISTER 

s3NO TRAP, REGISTER RESPONDS 

310 ADDRESSING 

sREGISTER DID NOT RESP 


OND 
sTIME OUT TRAP, DH1i BREAK CONTROL 


sREGISTER DID NOT RESPOND 
sSET UP TO RETURN FROM TRAP 
sRETURN FROM TRAP 


sRESTORE TRAP CATCHER 
sCHECK FOR ITERATIONS, LOOP 


sBUS ACTIVE REGISTER ADDRESSING TEST 

sVERIFY THAT BUS ACTIVE REGISTER RESPONDS TO ADDRESSING 

sIF BUS ACTIVE REGISTER DOES NOT RESPOND, A SUSS ERROR TRAP 
sWILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 


TS bags “wh 


T7: MO 
MOV 
MOV 
-1F- NB <> 
MOV 
-ENDC 
XN=XNel 
MOV 
MOV 
TST 
BR 
1$: MOV 
HLT 
EMT 
23: MOV 
RTI 
3$: MOV 


#340 ,PS 
#100, [COUNT 
2%, ESCAPE 
@,FREEZ1 
#1$,904 
#340 , 806 
SOHBAR 

3$ 

DHBAR ,R5 
0 

0 

#3$,(SP) 
#6 , 804 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 100 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


:SET UP TO LOOP WITH DATA 


sSET UP TIME OUT TRAP 
sADORESS BUS ACTIVE 
REGISTE 


: STER 
sNO TRAP, REGISTER RESPONDS 
370 ADDRESSING 
sREGISTER DID NOT RESPOND 
:TIME SUT TRAP, BUS ACTIVE 
sREGISTER DI9 NOT RESPOND 


sSET UP TO RETURN FROM TRAP 
sRETURN FROM TRAP 

















SEQ 28 
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002236 
002242 


223 002244 


a ee es 


002370 
002376 


002402 


005037 
104400 


012767 
012767 
012767 


000011 
012737 
012737 
005777 
000406 
016705 
104000 
012716 
000002 
012737 


005037 
104400 


012767 
012767 
012767 


000012 
012777 


052777 
017704 


005704 


000006 


015512 


002324 


000006 
000006 


175524 
015576 
015564 


000004 
000006 


000004 


CLR 806 ;sRESTORE TRAP CATCHER 

SCOPE ;CHECK FOR ITERATIONS, LOOP 
RGADRS t/SSR/,t/SILO STATUS/ 

;SILO STATUS REGISTER ADDRESSING TEST 

;VERIFY THAT SILO STATUS REGISTER RESPONDS TO ADDRESSING 

:IF SILO STATUS REGISTER DOES NOT RESPOND, A BUSS ERROR TRAP 

;WILL OCCUR, AND AN ERROR MESSAGE WILL BE TYPED. 
TS \XN,100,2$ 
T10: MOV 0340,PS sDISABLE ALL INTERRUPTS 

MOV #100, ICOUNT ;SET UP FOR 100 ITERATIONS 
- MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘i <> 

MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNel 

MOV 613,864 ;SET UP TIME OUT TRAP 

MOV 0340 ,806 

TST SDHSSR ;ADDRESS SILO STATUS 

sREGISTER 
BR 3$ 3NO TRAP, REGISTER RESPONDS 
:T0 ADDRESSING 

i$: MOV DHSSR,RS sREGISTER DID NOT RESPOND 

a : sTIME OUT TRAP, SILO STATUS 

sREGISTER DID NOT RESPOND 

2s: MOV $33,(SP) sSET UP TO RETURN FROM TRAP 

RTI sRETURN FROM TRAP 
3$: MOV 06,804 

CLR ace sRESTORE TRAP CATCHER 

SCOPE sCHECK FOR ITERATIONS. _coP 
REGTSS t/SYSTEM CONTROL/, t/DHSCR/ 173777 


sMASTER CLEAR TEST 

sSET SYSTEM CONTROL REGISTER TO ‘CDATA’ 
sISSUE MASTER CLEAR 

sVERIFY THAT SYSTEM CONTROL WAS CLEARED 


Til: 0340.PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT :SET UP FOR 4000 ITERATIONS 
— MOV 61%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
2 <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNeol 
MOV #173777, @8DHSCR 7 CONTROL REGISTER 
3 
BIS €6IT11,98DHSCR ;ISSVUE MASTER CLEAR 
MOV SDHSCR .R4 :CR4)=ACTUAL DATA IN 
:SYSTEM CONTROL REGISTER 
.IF NB <> 
. BIC &,R4 ;CLEAR UNWANTED BITS 
-END 
TST R4 ;VERIFY THAT SYSTEM CONTROL REGISTER 





—— + 
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226 


ica Wika is, see a een 


002404 
002406 


002410 
002414 
002414 
002416 
002420 


002522 


001404 
005005 


016703 


104005 
104400 


012767 
012767 
012767 


000013 
012777 


052777 
017704 


005704 


001404 
095005 


016702 


104005 
104400 


012767 
012767 
012767 


000014 
012777 


015374 


177777 


004000 
015332 


015320 


002556 


177777 


175350 
015422 
015410 


015344 
015332 


175270 
015342 
015330 


015274 


LL RT I NS EE EST ES A A La 





SEQ 29 
;WAS CLEARED 
BEQ i$ 
CLR RS ;(R5)*EXPECTED DATA IN 
;SYSTEM CONTROL REGISTER, 0 
MOV DHSCR,R3 ;GET REGISTER ADDRESS 
a 5 sMASTER CLEAR FAILED 
1$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTSS t/LINE PARAMETER/,t/DHLPR/ ,177777 
sMASTER CLEAR TEST 
;SET LINE PARAMETER REGISTER TO ‘CDATA’ 
sISSUE MASTER CLEAR 
;VERIFY THAT LINE PARAMETER WAS CLEARED 
TS \XN,4000,1$ 
Tl2: MOV @340,PS ;sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— V 1%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV @, FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel ; 
MOV #177777, GDHLPR ;SET LINE PARAMETER REGISTER 
sT0 177777 
BIS #61IT11,8DHSCR sISSUE MASTER CLEAR 
MOV SDHLPR .R4 :(R4)=ACTUAL DATA IN 
sLINE PARAMETER REGISTER 
.IF NB <> 
sine BIC #,R4 ;CLEAR UNWANTED BITS 
TST Rg ;VERIFY THAT LINE PARAMETER REGISTER 
;WAS CLEARED 
BEQ is 
CLR RS :(RS)=EXPECTED DATA IN 
sLINE PARAMETER REGISTER. 0 
MOV DHLPR, RS ;GET REGISTER ADDRESS 
et : sMASTER CLEAR FAILED 
is: sc ;CHECK FOR ITERATIONS, LOOP 


REGTSS 


TS \XN,4000, 18 
MOV 
MOV 
MOV 


T13: 


.IF NB 
-ENDC 


XN=XNeol 


OPE 
t/BREAK CONTROL/ ,*/DHBCR/,177777 


sMASTER CLEAR TEST 
sSET BREAK CONTROL REGISTER TO ‘CDATA’ 
sISSUE MASTER CLEAR 

sVERIFY THAT BREAK CONTROL WAS CLEARED 


<> 


MOV 


MOV 


OUNT 
$13, ESCAPE 
#, FREEZ1 


#177777, 8DHBCR 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
3SET UP TO ESCAPE TO NEXT TEST 


s;SET UP TO LOOP WITH DATA ; 3 


;SET BREAK CONTROL REGISTER 
370 177777 





=~. 














SEQ 30 
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228 


229 


002530 
002536 


002644 
002644 


052777 
017704 


005704 


001404 
005005 


016703 


104005 
104400 


012767 
012767 
012767 


000015 
012777 


052777 
017704 
042704 
005704 


001404 
005005 


016703 


104005 
104400 


012767 


004000 015<52 


015262 


015250 


004000 
015204 


077700 


015166 


TS 
000340 175124 T15: 


015216 
015172 


BIS #BIT11,@DHSCR 
MOV SBOHBCR ,R4 


sISSVE MASTER CLEAR 
sCR4)*ACTUAL DATA IN 
sBREAK CONTROL REGISTER 


.IF NB <> 
— BIC @,R4 ;CLEAR UNWANTED BITS 
TST R4 ;VERIFY THAT BREAK CONTROL REGISTER 
;WAS CLEARED 
BEQ i$ 
CLR R5 3(R5)=EXPECTED DATA IN 
sBREAK CONTROL REGISTER, 0 
MOV DHBCR,R3 ;GET REGISTER ADDRESS 
oe 5 sMASTER CLEAR FAILED 
i$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTSS t/SILO STATUS/,*t/DHSSR/,100077, 77700 


sMASTER CLEAR TEST 

sSET SILO STATUS REGISTER TO ‘CDATA’ 
sISSUE MASTER CLEAR 

sVERIFY THAT SILO STATUS WAS CLEARED 


TS \XN,4000, 1% 


T14: MOV #340 ,PS sDISABLE ALL INTERRUPTS 


MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
— MOV #1$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
4 <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNel1 
MOV #100077, @DHSSR sSET SILO STATUS REGISTER 
3:70 100077 
BIS #681T11,8DHSCR sISSUE MASTER CLEAR 
MOV SDHSSR ,R4 3;(R4)=ACTUAL DATA IN 
sSILO STATUS REGISTER 
-IF NB <77700> 
Ic 77700 .R4 ;CLEAR UNWANTED BITS 
TST RS us ;VERIFY THAT SILO STATUS REGISTER 
: 
BEQ 1% 
CLR RS :CRS)=EXPECTED DATA IN 
sSILO STATUS REGISTER. 0 
MOV DHSSR,RS ;GET REGISTER ADDRESS 
ot : ;MASTER CLEAR FAILED 
i$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTS1 t/LINE SELECT BIT 0/,BITOO 


sSYSTEM CONTROL REGISTER WRITE/READ TEST CNORMAL MODE) 
sSET LINE SELECT BIT O IN SYSTEM CONTROL REGISTER 
;VERIFY THAT LINE ee BIT O WAS SET 

sCLEAR LINE SELECT BIT 0 

{VERITY THAT LINE SELECT BIT O WAS CLEARED 


\XN ,4000, 2% 


MOV s;DISABLE ALL INTERRUPTS 


#340 ,PS 





-_— — 














SEQ 31 
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230 


002652 
002660 


012767 
012767 


012767 
012767 
012767 


000017 
016703 
012713 
022713 
001404 
012705 


011304 


104001 
042713 


004000 015176 


002730 


015116 


000001 


000002 


015164 


175036 
015110 
015076 


.IF NB 


-ENDC 
XN=XNel1 


i$: 


2s: 
REGTS1 


MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV #,FREEZ1 s;SET UP TO LOOP WITH DATA ; 3 
MOV DHSCR,R3 sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #BITOO,CR3) ;SET LINE SELECT BIT 0 
a oe ;sVERIFY THAT LINE SELECT BIT 0 WAS SET 
MOV #BITOO,.RS sCRS)= EXPECTED VALUE 
sIN SYSTEM CONTROL REGISTER 
sLINE SELECT BIT 0 
MOV CR3),R4 ;CR4)=ACTUAL DATA. IN 
sSYSTEM CONTROL REGISTER 
a : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
a Sreree sae sCLEAR LINE SELECT BIT 0 
CLR s(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 0 
MOV CR3).R4 s(R4)*ACTUAL DATA IN 
_ESYSTEM CONTROL REGISTER 
ae : PYSTEM CONTROL REGISTER 


noe? joe ERROR 
SCOPE  “SIBHECK FOR ITERATIONS. LOOP 
t/LINE SELECT BIT 1/,BITOL 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
sSET LINE SELECT BIT 1 IN eas CONTROL REGISTER 
sVERIFY THAT LINE SELECT BIT 1 WAS SET 

sCLEAR LINE SELECT BIT 1 

;sVERITY THAT LINE SELECT BIT 1 WAS CLEARED 


Ti6: #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
a sa MOV $23 , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
F <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA s 3 
-ENDC 
XN=XNe1 
MOV DHSCR.RS ;PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #BITO1,CR3) ;SET LINE SELECT BIT 1 
an ene ;VERIFY THAT LINE SELECT BIT 1 WAS SET 
MOV #BITO1,RS :(RS)= EXPECTED VALUE 
:IN SYSTEM CONTROL REGISTER 
;LINE SELECT BIT 1 
MOV CR3),R4 ;(R4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
port ' :SYSTEM CONTROL REGISTER 
:WRITE/READ ERROR 
1$: BIC #BITO1,CR3) ;CLEAR LINE SELECT BIT 1 





— - 
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231 


232 


003006 
003010 


003012 


003014 
003014 


003016 
003020 


003106 
003106 


001403 
005005 


011304 


104001 
104400 


012767 
012767 
012767 


012705 


011304 


104001 
042713 
001403 
005005 


011304 


104001 
104400 


012767 


000340 174750 
004000 015022 
003104 015010 


000004 


TS 
000340 174662 120: MOV 


SEQ 32 
BEQ 2$ 
CLR RS ;(R5)=EXPECTED DATA IN 
;SYSTEM CONTROL REGISTER, 0 
MOV CR3),R4 ;(€R4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
aa : ;SYSTEM CONTROL REGISTER 
;WRITE/READ ERROR 
2s: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTS1 t/LINE SELECT BIT 2/,B1ITO2 
;SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
;SET LINE SELECT BIT 2 IN SYSTEM CONTROL REGISTER 
;VERIFY THAT LINE SELECT BIT 2 WAS SET 
;CLEAR LINE SELECT BIT 2 
;VERITY THAT LINE SELECT BIT 2 WAS CLEARED 
TS \XN,4000,2$ 
Ti?: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV 62%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV DHSCR,R3 ;PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #6ITO2,(R3) ;SET LINE SELECT BIT 2 
a + waenenad ;VERIFY THAT LINE SELECT BIT 2 WAS SET 
MOV #BITO2.RS ;(RS5)= EXPECTED VALUE 
;IN SYSTEM CONTROL REGISTER 
sLINE SELECT BIT 2 
MOV (R3),R4 :(R4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
eo : sSYSTEM CONTROL REGISTER 
;WRITE/READ ERROR 
is: 8 ila ahaa ;CLEAR LINE SELECT BIT 2 
CLR R5 :(RS)=EXPECTED DATA IN 
:SYSTEM CONTROL REGISTER, 0 
MOV CR3),R4 ;CR4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
id . sSYSTEM CONTROL RESISTER 
;sWRITE/READ ERROR 
2s: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTS1 t/LINE SELECT BIT 3/,BITOS 


sSYSTEM CONTROL REGISTER WRITE/READ TEST CNORMAL MODE) 
;SET LINE SELECT BIT 3 IN SYSTEM CONTROL REGISTER 
VERIFY THAT LINE SELECT BIT 3 WAS SET 

sCLEAR LINE SELECT BIT 3 

;VERITY THAT LINE SELECT BIT 3 WAS CLEARED 


\XN,4000,2$ 


#340,PS :DISABLE ALL INTERRUPTS 





_~ i 











SEQ 33 
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233 


TAR SR eee Te ce in eel ae 


003114 
003122 


012767 
012767 


012705 


011304 


104001 
042713 
001403 
005005 


011304 


104001 
104400 


012767 
012767 
012767 


004000 014734 


003172 014722 


000010 


000340 
004000 
003260 


014566 
060020 
000920 


000020 


000020 


174574 
014646 
014634 


.IF NB 


.ENDC 
XN=XNeo1 


2$: 
REGTS1 


TS \XN,4000,2$ 
MOV 


T21: 


-IF NB 
-ENDC 


XN=XNe1 


MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
MOV DHSCR,RS sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #BITO3,CR3) sSET LINE SELECT BIT 3 
om oda sVERIFY THAT LINE SFLECT BIT 3 WAS SET 
MOV #BITO3,RS sCRS)= EXPECTED VALUE 
sIN SYSTEM CONTROL REGISTER 
sLINE SELECT BIT 3 
MOV CR3),R4 3CR4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
a : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
4 ice sCLEAR LINE SELECT BIT 3 
CLR RS s(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 0 
MOV CR3),R4 :CR4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
aA : sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
SCOPE sCHECK FOR ITERATIONS, LOOP 
t/MEMORY EXTENSION BIT 0/,BITO4 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
sSET MEMORY EXTENSION BIT O IN SYSTEM CONTROL REGISTER 
VERIFY THAT MEMORY EXTENSION BIT O WAS SET 

sCLEAR MEMORY EXTENSION BIT 0 

;VERITY THAT MEMORY EXTENSION BIT O WAS CLEARED 


s;DISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


MOV #4000, ICOUNT 
MOV 2% , ESCAPE 


<> 


MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
MOV 3 sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #BIT04 , CRS) ;SET MEMORY EXTENSION BIT 0 
on “epee ;VERIFY THAT MEMORY EXTENSION BIT 0 WAS SET 
i 
MOV eBIT04 RS 3CRS)= EXPECTED VALUE 
3IN SYSTEM CONTROL REGISTER 
sMEMORY EXTENSION BIT 0 
MOV CR3),R4 sCR4)*ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
a7 : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
BIC #BITO4 ,CR3) sCLEAR MEMORY EXTENSION BIT 0 














LL RT ET RS | AS EL A SE TE IE A TRE ERE a SS 
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234 


235 


Diss cbtitacichetes cee Niece caaeeie- 


0603250 
003252 


003254 


003256 
003256 


003260 
003262 


003350 
003350 


001403 
005005 


011304 


104001 
104400 


012767 
012767 
012767 


012705 


011304 


104001 
042713 
001403 
005005 


011304 


104001 
104400 


012767 


000340 174506 
004000 014560 
003346 014546 


014500 
000040 
000040 


000040 


000040 


SEQ 34 
BEQ 2$ 
CLR RS ;(R5)*EXPECTED DATA IN 
;SYSTEM CONTROL REGISTER, 0 
MOV CR3),R4 ;(R4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
ol : ;SYSTEM CONTROL REGISTER 
;WRITE/READ ERROR 
2$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTS1 t/MEMORY EXTENSION BIT 1/,BITOS 
;SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
;SET MEMORY EXTENSION BIT 1 IN SYSTEM CONTROL REGISTER 
;VERIFY THAT MEMORY EXTENSION BIT 1 WAS SET 
;CLEAR MEMORY EXTENSION BIT 1 
;VERITY THAT MEMORY EXTENSION BIT 1 WAS CLEARED 
TS \XN,4000,2$ 
T22: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
~- MOV #2$ ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel 
MOV DHSCR,RS ;PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #BITOS,CR3) sSET MEMORY EXTENSION BIT i 
a ee ;VERIFY THAT MEMORY EXTENSION BIT 1 WAS SET 
MOV #BITOS.R5S ;(R5)= EXPECTED VALUE 
;IN | STEM CONTROL REGISTER 
sMEMORY EXTENSION BIT 1 
MOV CR3),R4 ;(R4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
a sSYSTECM CONTROL REGISTER 
sWRITE/READ ERROR 
1$: = gia lende ;CLEAR MEMORY EXTENSION BIT 1 
CLR RS :(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER. 0 
MOV CR3),R4 :CR4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
~ ; :SYSTEM CONTROL REGISTER 
;sWRITE/READ ERROR 
2s: SCOPE ;CHECK FOR ITERATIONS, LOOP 
REGTS1 *t/RECEIVER INTERRUPT ENABLE/ ,BITO6 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
sSET RECEIVER INTERRUPT ENABLE IN SYSTEM CONTROL REGISTER 
sVERIFY THAT RECEIVER INTERRUPT ENABLE WAS SET 

;CLEAR RECEIVER INTERRUPT ENABLE 

sVERITY THAT RECEIVER INTERRUPT ENABLE WAS CLEARED 


TS \XN,4000,2$ 
000340 174420 T23: 


MOV #340 ,PS sDISABLE ALL INTERRUPTS 





——— — 
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003356 
003364 


012767 
012767 


012705 


011304 


104001 
042713 
001403 
005005 


011304 


104001 
104400 


012767 
012767 
012767 


012705 


011304 


004000 914472 


003434 


014412 


000100 


014324 
001000 
001900 


001000 


_ 001000 


014460 


014372 


.IF NB 


-ENODC 
XN=XNe1 


i$: 


2s: 
REGTS1 


SCOPE 
t/MAINTENANCE MODE/,BITO9 





#4000, ICOUNT 
#2$, ESCAPE 


#,FREEZ1 
DHSCR,R3 
#BITO6,CR3) 
eo 


1 
#BITO6 .RS 


CR3),R4 


1 
1 


#BITO6 ,CR3) 
2s 

RS 

CR3).R4 


i 
1 





SEQ 35 


;SET UP FOR 4000 ITERATIONS | 
;SET UP TO ESCAPE TO NEXT TEST 


sSET UP YO LOOP WITH DATA ; 3 


;PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
s;SET RECEIVER INTERRUPT ENABLE 
;VERIFY THAT RECEIVER INTERRUPT ENABLE WAS SET 


sCRS)= EXPECTED VALUE 

sIN SYSTEM CONTROL REGISTER 
sRECEIVER INTERRUPT ENABLE 
5€R4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
sCLEAR RECEIVER INTERRUPT ENABLE 


;(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 0 
;(R4)*ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
sCHECK FOR ITERATIONS, LOOP 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
ENANCE MODE IN SYSTEM CONTROL REGISTER 


s;CLEAR MAINTENANCE MODE 
;sVERITY THAT MAINTENANCE MODE WAS CLEARED 


3;SET MAINT 
;VERIFY THAT 
AR 
TS \XN,4000,2$% 
T24: MOV 0340 ,PS 
MOV #4000, IC 
MOV #23 ESCAPE 
IF NB <> 
MOV #,FREEZ1 
-ENODC 
XN=XNel 
MOV DHSCR,RS 
MOV €6ITO9,CR3) 
CMP #BITO9,CR3) 
BEQ is 
MOV eBITO9 RS 
MOV CR3),R4 
HLT 1 
EMT 1 
i$: BIC #BITO9,CR3) 


S 
TERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA : 3 


:PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
3 MODE 
sVERIFY THAT MAINTENANCE MODE WAS SET 


sCRS)= EXPECTED VALUE 
sIN SYSTEM CONTROL REGISTER 


: 

3(R4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
s;CLEAR MAINTENANCE MODE 





_— 














SEQ 36 
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238 


003512 
003514 


003516 


003520 
003520 


003522 
003524 


003612 
004612 


001403 
005005 
011304 


104001 
104400 


012767 
012767 
012767 


012705 


011304 


012767 


000340 


174244 


004000 014316 
003610 014304 


010000 


TS 
000340 174156 T26: 


es: 
REGTS1 


Tes 
.IF NB 


-ENDC 
XN=XNel 


23: 
REGTSi 


Hissin ehieneiegasieeiineheiescone'>elbaipicenenisinanaeianiiaesdiiemaim 


TS \XN,4000,2$ 
: MOV 


BEQ 2s 

CLR RS ;(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 0 

MOV CR3),R4 sCR4)=ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 

on : sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
SCOPE ;CHECK FOR ITERATIONS, LOOP 
t/SILO OVERFLOW INTERRUPT ENABLE’, BITi2 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 

sSET SILO OVERFLOW INTERRUPT ENABLE IN SYSTEM CONTROL REGISTER 
;sVERIFY THAT SILO OVERFLOW INTERRUPT ENABLE WAS SET 

sCLEAR SILO OVERFLOW INTERRUPT ENABLE 

;VERITY THAT SILO OVERFLOW INTERRUPT ENABLE WAS CLEARED 


#340,PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
MOV 2$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
©> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
MOV DHSCR,RS sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV *BIT12,(R3) sSET SILO OVERFLOW INTERRUPT ENABLE 
ia -F pmatiaaaal sVERIFY THAT SILO OVERFLOW INTERRUPT ENABLE WAS SET 
MOV #6IT12.R5 sCRS)= EXPECTED VALUE 
sIN SYSTEM CONTROL REGISTER 
sSILO OVERFLOW 
MOV (R3),R4 sCR4)*ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
eat ' sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
= tae sCLEAR SILO OVERFLOW INTERRUPT ENABLE 
CLR RS :(RS5)=EXPECTED DATA IN 
3SYS REGISTER, 0 
MOV (R3),.R4 :CR4)=ACTUAL DATA IN 
:SYS CONTROL REGISTER 
oe : sSYSTEM CONTROL REGISTER 
sWRITE/READ 


ERROR 
Poe y FOR ITERATIONS, LOOP 


SCOPE ; 
*/TRANSMITTER INTERRUPT ENABLE/,BIT1 
:SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 


SET TRANSMITT ERRUPT ENABLE IN SYSTEM CONTROL REGISTER 

sVERIFY THAT TRANSMITTER INTERRUPT ENABLE WAS SET 

sCLEAR TRANSMITTER INTERRUPT ENABLE 

sVERITY THAT TRANSMITTER INTERRUPT ENABLE WAS CLEARED 
\XN,4000,2$ 

MOV #340,PS sDISABLE ALL INTERRUPTS 





-_ 
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239 


003620 
003626 


012767 
012767 


012705 


011304 


104001 
042713 
001403 
005005 


011304 


104001 
104400 


012767 
012767 
012767 


012705 


011304 


104001 
042713 


004000 014230 


003676 


014150 


020000 


100000 


014216 


174070 
014142 
014130 


#4000, ICOUNT 








- 


SEQ 37 


;SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 5 3 


;sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
;SET TRANSMITTER INTERRUPT ENABLE 
sVERIFY THAT TRANSMITTER INTERRUPT ENABLE WAS SET 


sCRS)= EXPECTED VALUE 

sIN SYSTEM CONTROL REGISTER 

s; TRANSMITTER INTERRUPT ENABLE 
3(R4)=ACTUAL DATA IN 

sSYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
sCLEAR TRANSMITTER INTERRUPT ENABLE 


sCRS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 0 
s(R4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


ERROR 
sCHECK FOR ITERATIONS, LOOP 


CONTROL REGISTER 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 3 3 

sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
sSET TRANSMITTER DONE 

sVERIFY THAT TRANSMITTER DONE WAS SET 


:CRS)= EXPECTED VAL 
:IN a CONTROL REGISTER 


TTER DONE 
:CR4)*ACTUAL DATA IN 
:SYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 


MOV #2$,ESCAPE 
.IF NB <> 
MOV #,FREEZ1 
-ENDC 
XN=XNel 
MOV DHSCR,R3 
MOV #BIT13,CR3) 
CMP #B8IT13,CR3) 
BEQ 1$ 
MOV #BIT13,R5 
MOV CR3),R4 
HLT 1 
EMT 1 
1$: BIC #BIT13,CR3) 
BEQ 2s 
CLR RS 
MOV CR3),R4 
HLT 1 
EMT i 
sWRITE/READ 
2$: SCOPE 
REGTS1 t/TRANSMITTER DONE/,BIT1i5 
;SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
:SET TRANSMITTER DONE IN SYSTEM 
;VERIFY THAT TRANSMITTER DONE WAS SET 
;CLEAR TRANSMITTER DONE 
VERITY THAT TRANSMITTER DONE WAS CLEARED 
TS \XN,4000,2 
T27: MOV #340 ,PS 
MOV $4000, ICOUNT 
MOV @23, ESCAPE 
IF NB <> 
MOV #, FREEZ1 
.ENDC 
XN=XNel 
MOV DHSCR,R3 
MOV #81T15,.CR3) 
CMP #BIT1S5,CR3) 
BEQ 1$ 
MOV $B8IT15,R5 
37 
MOV (R3),R4 
HLT 1 
EMT i 
1$: BIC @BIT15,(CR3) 


sCLEAR TRANSMITTER DONE 
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240 


241 


003754 
003756 


003760 


003762 
003762 


001403 
005005 


011304 


104001 
104400 


012767 
012767 
012767 


000031 
012777 


016703 
104001 
104400 


012767 
012767 
012767 


000032 
012777 


005777 
001406 
005005 


017704 


000200 


013766 


013756 
013752 


000400 


013712 


013702 


174002 
014054 
014042 


013772 


173726 
014000 
013766 


013716 


BEQ 
CLR 


MOV 
HLT 
EMT 


2s: 
REGTS2 


2$ 
RS 


CR3),R4 


1 
1 


SCOPE 
t/CHARACTER AVAILABLE/ ,BITO7 


SEQ 38 


;C(RS5)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 0 
;(R4)*ACTUAL DATA IN 
;SYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 
;CHECK FOR ITERATIONS, LOOP 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
;sVERIFY THAT CHARACTER AVAILABLE IS READ ONLY IN NORMAL MODE 


TS \XN,4000,1$ 
T30: V 


.IF NB <> 


-ENDC 
XN=XNeol1 


i$: SCOPE 
REGTS2 t/CLEAR 


sSYSTEM 
; VERIFY 


TS \XN,4000, 1% 
T31: MOV 
MOV 


MOV 
IF NB <> 


MOV 
.ENDC 
XN=XNeol 

MOV 


#4000, ICOUNT 
#1$, ESCAPE 


@,FREEZ1 


#6IT07,@DHSCR 


SDHSCR .R4 
DHSCR,R3 
1 
1 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sATTEMPT TO WRITE 

sCHARACTER AVAILABLE IN 
sSYSTEM CONTROL REGISTER 
sWAS CHARACTER AVAILABLE SET 


;CRS)=EXPECTED DATA 

sIN SYSTEM CONTROL REGISTER, 0 
;(R4)=ACTUAL DATA IN SYSTEM 
s;CONTROL REGISTER 

sADDRESS OF SYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 


NON EXISTANT MEMORY/ ,BITO8 
CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 


THAT CLEAR 


340 ,.PS 
#4000, ICOUNT 
#1$, ESCAPE 


¢,FREEZ1 


¢68IT08 , BDHSCR 


SOHSCR 
i$ 
RS 


SOHSCR .R4 


NON EXISTANT MEMORY IS READ ONLY IN NORMAL MODE 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET JP TO LOOP WITH DATA ; 3 


sATTEMPT TC WRITE 

sCLEAR NON EXISTANT MEMORY IN 

sSYSTEM CONTROL REGISTER 

sWAS CLEAR NON EXISTANT MEMORY SET 


3(RS)=EXPECTED DATA 
sIN SYSTEM CONTROL REGISTER, 0 
:(R4)*ACTUAL DATA IN SYSTEM 
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-— 


242 


243 


004106 
004112 
004112 


004114 
004116 


016703 013676 


104001 
104400 


012767 
012767 
012767 


000033 
012777 
005777 
001406 
005005 
017704 
016703 
104901 
104400 


012767 
012767 
012767 


000034 
012777 


005777 
001406 
005005 
017704 
016703 


013626 
013622 


004900 


013562 


013552 
013546 


173652 
013724 
013712 


013642 


173576 


013566 


MOV DHSCR,R3 
HLT 1 
EMT 1 





SEQ 39 


sCONTROL REGISTER 
;ADDRESS OF SYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


;WRITE/READ ERROR 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


s;SET UP TO LOOP WITH DATA 


sATTEMPT TO WRITE 

sNON EXISTANT MEMORY IN 
sSYSTEM CONTROL REGISTER 
sWAS NON EXISTANT MEMORY SET 


;(RS5)=EXPECTED DATA 

sIN SYSTEM CONTROL REGISTER, 0 
;(R4)=ACTUAL DATA IN SYSTEM 
sCONTROL REGISTER 

sADDRESS OF SYSTEM CONTROL REGISTER 
sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 


sDISABLE ALL INTERRUPTS 
3SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 $ 


sATTEMPT TO WRITE 





sCRS “EXPECTED DATA 

sIN SYSTEM CONTROL REGISTER, 0 

sCR4)*ACTUAL DATA IN SYSTEM 
REGISTER 


sADDRESS OF SYSTEM ooo REGISTER 


1$: SCOPE 
REGTS2 t/NON EXISTANT MEMORY/.BIT10 
;SYSTEM CONTROL REGISTER WRITE/READ TEST CNORMAL MODE) 
;VERIFY THAT NON EXISTANT MEMORY IS READ ONLY IN NORMAL MODE 
TS \XN,4000,1$ 
T32: MOV $340 ,PS 
MOV #4000, ICOUNT 
MOV #1$, ESCAPE 
.IF NB <> 
MOV #,FREEZ1i 
-ENDC 
XN=XNe1 
MOV #BIT10,8DHSCR 
TST 8DHSCR 
BEQ is 
CLR RS 
MOV SDOHSCR ,.R4 
MOV DHSCR,R3 
HLT i 
EMT 1 
i$: SCOPE 
REGTS2 t/MASTER CLEAR/,BITiI1 
:SYSTEM CONTROL REGISTER WRITE/READ TEST (NORMAL MODE) 
;VERIFY THAT MASTER CLEAR IS READ ONLY IN NORMAL MODE 
TS \XN,4000,1$ 
T33: MOV €340 ,PS 
MOV #4000, ICOUNT 
MOV #13, 
IF NB <> 
MOV ®,FREEZ1 
-ENOC 
XN=XNel 
MOV #61711 ,@DHSCR 
TST @OHSCR 
BEQ is 
CLR 
MOV SDHSCR ,R4 
: CONTROL 
MOY DHSCR,R3 
HLT 


;SYSTEM CONTROL REGIST 





004242 


004244 
244 004246 


004320 
245 004322 





104001 
104400 


012767 
012767 
012767 


000035 
012777 


005777 
001406 
005005 


017704 
016703 
104001 
104400 


012767 
012767 
012767 


000035 
016703 
012713 
052713 
022713 


001404 
012705 


000340 


004000 


004320 


040000 


013506 


013476 
013472 


173522 
013574 
013562 


013512 


173446 
013520 
013506 





SEQ 40 


CZOHA-D MACRO VO4.00 27-JUN-85 12:46:01 PAGE 17-18 


EMT i 
s;WRITE/READ ERROR 


1$: SCOPE 
REGTS2 t/SILO OVERFLOW/ ,BIT14 
sSYSTEM CONTROL REGISTER WRITE/READ TEST CNORMAL MODE) 
;VERIFY THAT SILO OVERFLOW IS READ ONLY IN NORMAL MODE 
TS \XN,4000,1$ 
T34: MOV $340,PS ;DISABLE ALL INTERRUPTS 
MOV 4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
- 2 MOV #1$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel 
MOV #B8IT14,8DHSCR sATTEMPT TO WRITE 
sSILO OVERFLOW IN 
;SYSTEM CONTROL REGISTER 
A —_— sWAS SILO OVERFLOW SET 
CLR R5 ;(R5)=EXPECTED DATA 
:IN SYSTEM CONTROL REGISTER, 0 
MOV SDHSCR .R4 :(R4)=ACTUAL DATA IN SYSTEM 
sCONTROL REGISTER 
MOV DHSCR,R3 sADDRESS OF SYSTEM CONTROL REGISTER 
ae : ;SYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
1$: SCOPE 
REGTSS t/CHARACTER AVAILABLE/ ,BITO7 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (MAINTENANCE MODE) 
sSET MAINT MODE 

;SET CHARACTER AVAILABLE IN SYSTEM CONTROL REGISTER 

sVERIFY THAT CHARACTER AVAILABLE WAS SET 

sCLEAR MAINTENANCE MODE 

;VERIFY THAT CHARACTER AVAILABLE CANNOT BE CLEARED 


sSET MAINTENANCE 
sCLEAR CHARACTER AVAILABLE 
sVERIFY THAT CHARACTER AVAILABLE WAS CLEARED 


TS \XN,4000, 3% 


T35: 


-IF NB 
-ENDC 


XN=XNel 


SEDGE cs ONY CET ty Pe RP Tore 


MOV #340,PS sDISABLE ALL INTERRUPTS 
MOV 4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
MOV #34, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
MOV DHSCR,R3 sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
MOV #BIT09,(R3) sSET MAINTENANCE MODE 
BIS #6 IT07,CR3) SET CHARACTER AVAILABLE 
CMP #81T09+BIT07, CR3) ;VERIFY THAT CHARACTER AVAILABLE 
eco os sAND MAINTENANCE MODE ARE SET 
MOV *B1T09+BITO7, RS ;(RS)=EXPECTED DATA 
sIN SYSTEM CONTROL REGISTER 





= 








een eee rec reeeennccnneer  aN 


SEQ 41 
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246 


bi cote ka ete eee 


004372 


011304 


104001 


012705 


104001 


052713 
042713 
022713 


001404 
012705 


011304 


104001 
104400 


012767 
012767 
012767 


000037 
016703 
012713 
052713 
022713 


001494 
012705 


001000 


173316 
013370 
013356 


sMAINTENANCE MODE CHARACTER AVAILABLE 


MOV CR3),R4 ;(R4)=ACTUAL DATA 
sSYSTEM CONTROL REGISTER 
ae : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
i$: BIC #BITO9,CR3) sCLEAR MAINTENANCE MODE 
BIC #BIT07,CR3) ;ATTEMPT TO CLEAR CHARACTER AVAILABLE 
ice ee sCHARACTER AVAILABLE SHOULD BE SET 
MOV &BITO7,R5S ;CRS)=*EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER 
sCHARACTER AVAILABLE 
a : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
2s: BIS @BITO9,CR3) sSET MAINTENANCE MODE 
BIC #BITO7,CR3) ;CLEAR CHARACTER AVAILABLE 
CMP eB ITO9,CR3) sEXPECT ONLY MAINTENANCE 
sMODE TO BE SET 
BEQ 3$ 
MOV SB ITO9,RS 3CRS5)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 
sMAINTENANCE MODE BIT 
MOV CR3),.R4 :(R4)=ACTUAL DATA IN 
sSYSTEM CONTRCL REGISTER 
~a : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
3$: SCOPE sCHECK FOR ITERATIONS, LOOP 
REGTSS ¢t/NON EXISTANT MEMORY/ ,BIT10 


sSYSTEM CONTROL REGISTER WRITE/READ TEST (MAINTENANCE MODE) 
sSET MAINT MODE 

sSET NON EXISTANT MEMORY IN SYSTEM CONTROL REGISTER 
sVERIFY THAT NON EXISTANT MEMORY WAS SET 

sCLEAR MAINTENANCE MODE 

;VERIFY THAT NON —" MEMORY CANNOT BE CLEARED 


3;SET MAINTENANCE 
;CLEAR NON EXISTANT MEMORY 
sVERIFY THAT NON EXISTANT MEMORY WAS CLEARED 


TS \XN,4000,3$ 
MOV 


T36: sDISABLE ALL IN/ERRUPTS 
MOV 4000, ICOUNT 


;SET UP FOR 4000 ITERATIONS 


> ian MOV 43%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 

MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3; $s 
-ENDC 
XN=XNel 

MOV DHSCR,R3 ;PUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 

MOV #BITO9,CR3) ;SET MAINTENANCE MODE 

BIS #BIT10,CR3) :SET NON EXISTANT MEMORY 

CMP @B8IT09+BITLO, CR3) ;VERIFY THAT NON EXISTANT MEMORY 

eee ;AND MAINTENANCE MODE ARE SET 

i$ 
MOV #BITO9+BIT1O.RS ;CRS)=EXPECTED DATA 


sIN SYSTEM CONTROL REGISTER 





os 
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ER oe ae rm Ec 


SEQ 42 


sMAINTENANCE MODE AND NON EXISTANT MEMORY 





004522 011304 MOV CR3),R4 ;(R4)=ACTUAL CATA IN 
sSYSTEM CONTROL REGISTER 
004524 HLT 1 sSYSTEM CONTROL REGISTER 
004524 104001 EMT i 
s;WRITE/READ ERROR 
004526 042713 001000 1$: BIC #BITO9,CR3) s;CLEAR MAINTENANCE MODE 
004532 042713 002000 BIC #BIT10,(R3) ;sATTEMPT TO CLEAR NON EXISTANT MEMORY 
004536 022713 002000 CMP #BIT10,CR3) sNON EXISTANT MEMORY SHOULD BE SET 
004542 001403 BEQ 2$ 
004544 012705 002000 MOV #BIT10,R5 ;(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER 
sNON EXISTANT MEMORY 
004550 HLT 1 sSYSTEM CONTROL REGISTER 
004550 104001 EMT 1 
sWRITE/READ ERROR 
904552 052713 001000 2$: BIS #BITO9,CR3) sSET MAINTENANCE MODE 
004556 042713 002000 BIC #B81IT10,(R3) ‘;CLEAR NON EXISTANT MEMORY 
004562 022713 001000 CMP #BIT09,CR3) sEXPECT ONLY MAINTENANCE 
sMODE TO BE SET 
004566 001404 BEQ 3$ 
004570 012705 001000 MOV #BITO9,RS ;CRS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 
sMAINTENANCE MODE BIT 
064574 011304 MOV CR3).R4 :(R4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
004576 HLT i sSYSTEM CONTROL REGISTER 
004576 104001 EMT i 
sWRITE/READ ERROR 
004600 104400 3$: SCOPE sCHECK FOR ITERATIONS, LOOP 
247 004602 REGTSS ‘t/SILO OVERFLOW/ ,BIT14 
sSYSTEM CONTROL REGISTER WRITE/READ TEST (MAINTENANCE MODE) 
sSET MAINTENANCE MODE 
sSET SILO OVERFLOW IN SYSTEM CONTROL REGISTER 
sVERIFY THAT SILO OVERFLOW WAS SET 
;CLEAR MAINTENANCE MODE 
sVERIFY THAT SILO OVERFLOW CANNOT BE CLEARED 
3 MAINTENANCE MODE 
;CLEAR SILO OVERFLOW 
;VERIFY THAT SILO OVERFLOW WAS CLEARED 
004602 TS \XN,4000, 3% 
004602 012767 000340 173166 137: MOV €340 PS sDISABLE ALL INTERRUPTS 
004610 012767 004000 013240 MOV 4000, TCOUNT ;SET UP FOR 4000 ITERATIONS 
004616 012767 004730 013226 on MOV #3% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
; <> 
one MOV ¢,FREEZ1 ;SET UP TO LOOP WITH DATA : 3 
000040 XN=XNel 
004624 016703 013160 MOV DHSCR,R3 sPUT ADDRESS OF SYSTEM CONTROL REGISTER IN R3 
004630 012713 001000 MOV #BITO9,CR3) ;SET MAINTENANCE MODE 
004634 052713 040000 BIS #BIT14,.CR3) :;SET SILO OVERFLOW 
004640 022713 041000 CMP #81109+BIT14,(R3) ;VERIFY THAT SILO OVERFLOW 
sAND MAINTENANCE MODE ARE SET 
004644 001404 BEQ i$ 
004646 012705 041000 MOV #BITO9+BITI4,R5 ;C(RS)=EXPECTED DATA 
:IN SYSTEM CONTROL REGISTER 





weer 





SEQ 43 
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| 
L 


004652 


004732 


011304 


104001 


012705 


104001 
052713 
042713 
022713 
001404 
612705 
011304 


104001 


sMAINTENANCE MODE AND SILO OVERFLOW 
;(R4)=ACTUAL DATA IN 

sSYSTEM CONTROL REGISTER 

sSYSTEM CONTROL REGISTER 


sWRITE/READ ERROR 


MOV CR3),R4 


1$: BIC #BITO9,CR3) s;CLEAR MAINTENANCE MODE 
BIC #BIT14,CR3) sATTEMPT TO CLEAR SILO OVERFLOW 
fo \ ilaiaieaai sSILO OVERFLOW SHOULD BE SET 
y 
MOV #BIT14,R5 s(RS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER 
s;SILO OVERFLOW 
: sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
23: 8Is #BIT09,CR3) ;SET MAINTENANCE MODE 
BIC #BIT14,(R3) sCLEAR SILO OVERFLOW 
CMP #BIT09,CR3) sEXPECT ONLY MAINTENANCE 
sMODE TO BE SET 
BEQ 3$ 
MOV #BITO9,RS sCRS)=EXPECTED DATA IN 
sSYSTEM CONTROL REGISTER, 
sMAINTENANCE MODE BIT 
MOV CR3),R4 s(R4)=ACTUAL DATA IN 
sSYSTEM CONTROL REGISTER 
AY : sSYSTEM CONTROL REGISTER 
sWRITE/READ ERROR 
3$: SCOP sCHECK FOR ITERATIONS, LOOP 
XBIT=BITX 
CBIT=BITC 
BITX=1 
BITC=0 
at. 3. 
REGTS6 egal \BITX,*t/LINE PARAMETER/ , \BITC 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
-ENDC 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
-ENDR 
REGTS6 t/DHLPR/,\BITX,*t/LINE PARAMETER/,\BITC 


sLINE PARAMETER REGISTER DATA TEST 
SSET BIT O IN LINE PARAMETER TO 1 
:VERIFY THAT BIT O WAS SET 

;CLEAR BIT O 

;VERIFY THAT BIT O WAS CLEARED 


004732 TS \XN,4000,2$ 
004732 012767 000340 173036 T40: 


MOV #340,PS ;DISABLE ALL INTERRUPTS 

















SEQ 44 
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004740 
004746 


005002 
STER ERROR 
005002 


STER ERROR 
STER ERROR 
00 


STER ERROR 
00 


005006 


005010 
005012 
005014 
005016 


5016 


STER ERROR 
STER ERROR 


005020 


005022 


012767 
012767 


000041 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


104002 


040513 
011304 


005704 
001402 
005005 


104002 


104400 


000002 
000001 


012767 
012767 
012767 


000042 
012777 
016703 
012705 
010513 


004000 013110 
005020 013076 


004000 013026 


013026 
000001 


000340 
004000 
005110 


004000 
012736 
000002 





172746 
013020 
013006 


012736 


MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
P “> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNe1 
MOV #BIT11,@DHSCR ;sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #1,R5 ;BIT O WILL BE SET IN LINE PARAMETER 
MOV RS,CR3) ;SET BIT O 
MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
CMP R5,R4 ;WAS BIT O SET 
BEQ 1$ 
-1IF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
.IIF IDN <DHLPR>, <DHBCR>, HLT 3 ;sLINE PARAMETER REGI 
-IIF IDN <DHLPR>,<DHSSR>, HLT 4 sLINE PARAMETER REGI 
1$: BIC RS5,CR3) ;CLEAR BIT 0 
MOV CR3),R4 ;READ CONTENTS OF LINE PARAMETER 
-1IF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
TST R4 ;WAS BIT O CLEARED 
BEQ 2$ 
CLR RS 
-IIF IDN <DHLPR>,<DHLPR>, HLT & ;LINE PARAMETER REGI 
EMT z 
-LIF IDN <DHLPR>,<DHBCR>, HLT sLINE PARAMETER REGI 
-ITIF IDN <DHLPR>,<DHSSR>, HLT ;LINE PARAMETER REGI 
2$: SCOPE 
IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 
-ENDC 
BITX=BITX+BITX 
BITC=BITC+1i 
REGTS6 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC 


\XN,4000, 2$ 


;sLINE PARAMETER REGISTER DATA TEST 
sSET BIT 1 IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 1 WAS SET 

;CLEAR BIT 1 

;sVERIFY THAT BIT 1 WAS CLEARED 


T41 MOV #340 .PS ;DISABLE ALL INTERRUPTS 
MOV $4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
ae MOV #23, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #BIT11,8DHSCR ;MASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #2 ,R5 ;BIT 1 WILL BE SET IN LINE PARAMETER 





;SET BIT 1 








-_- 
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005064 


005066 
005070 


005072 
STER ERROR 

005072 
STER ERROR 


STER ERROR 
0050 
005076 


00 
STER ERROR 

005106 
STER ERROR 


STER ERROR 
005110 


005112 


011304 
020504 
001401 


104002 


040513 
011304 


005704 


001402 
005005 


104002 


104400 


000004 
000002 


012767 
012767 
012767 


. STER ERROR 


005164 040513 
005166 011304 


172656 
012730 
012716 


012646 


MOV 
-LIF NB <>, 

CMP 

BEQ 
-LIF IDN 


EMT 
-IIF IDN 


.IIF IDN 


-IIF ION 


2s: SCOPE 
IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 


-ENDC 
BITX=BITX+BITX 
BITC=BITC+1 
REGTS6 





i$ 
<DHLPR>,<DHLPR>, 


2 
<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>, 


2 
<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>, 


R 
<DHLPR>,<DHLPR>, 


SEQ 45 


;GET CONTENTS OF LINE PARAMETER 
;CLEAR UNWANTED BITS 
;WAS BIT 1 SET 


HLT 2 ;LINE PARAMETER REGI 
HLT 3 ;LINE PARAMETER REGI 
HLT 4 sLINE PARAMETER REGI 


;CLEAR BIT 1 

sREAD CONTENTS OF LINE PARAMETER 
s;CLEAR UNWANTED BITS 

sWAS BIT 1 CLEARED 


HLT 2 ;LINE PARAMETER REGI 
HLT 3 ;LINE PARAMETER REGI 
HLT 4 sLINE PARAMETER REGI 


t/DHLPR/ ,\BITX,t/LINE PARAMETER/ ,\BITC 


sLINE PARAMETER REGISTER DATA TEST 
;SET BIT 2 IN LINE PARAMETER TO 1 


;VERIFY THAT BIT 2 WAS SET 


;CLEAR BIT 2 


;VERIFY THAT BIT 2 WAS CLEARED 


TS \XN,4000,2$ 
T42: V 
-IF NB <> 


-ENDC 
XN=XNel1 


i$: BIC 
MOV 


#340 ,PS 
#4000, ICOUNT 
#2$ ,ESCAPE 
#,FREEZ1 


#6IT11,@0HSCR 
DHLPR,R3 


1 
<DHLPR> e <DHLPR> @ 


2 
<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>, 


RS ,CR3) 
CR3),R4 





s;DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 3 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 

;SET UP POINTER TO LINE PARAMETER 
;BIT 2 WILL SE SET IN LINE PARAMETER 
sSET BIT 2 

sGET CONTENTS OF LINE PARAMETER 
;CLEAR UNWANTED BITS 

sWAS BIT 2 SET 


HLT 2 ;LINE PARAMETER REGI 
HLT 3 ;LINE PARAMETER REGI 
HLT 4 ;LINE PARAMETER REGI 





;CLEAR BIT 2 
;READ CONTENTS OF LINE PARAMETER 
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005 
STER ERROR 
00 


005170 
005172 
005174 
176 


5176 


STER ERROR 


STER ERROR 
00 


5200 


005202 


005246 
005250 


STER ERROR 
00 


STER ERROR 
STER ERROR 
005254 


| STER ERROR 


STER ERROR 


005256 


005270 


005704 
001402 
005005 


104002 


104400 


000010 
000003 


000020 
000004 


012767 
012767 
012767 


000044 
012777 
016703 
012705 
010513 
011304 


020504 
001401 
104002 


040513 
011304 


005704 
001402 
005005 


104002 


104400 


000340 
004000 
005270 


004000 
012556 
000020 





TIF NB <>, BIC #,R4 
TST 


;CLEAR UNWANTED BITS 


R4 ;WAS BIT 2 CLEARED 
BEQ 2$ 
CL RS 
.IIF ION <DHLPR>,<DHLPR>, HLT 2 
EMT 2 
.IIF ION <DHLPR>,<DHBCR>, HLT 3 
.ITIF ION <DHLPR>,<DHSSR>, HLT 4 
2$: SCOPE 
-IF EQ BITX-4 
BITX=BITX+BITX 
BITC=BITC+1 
-ENDC 
BITX=BITX+BITX 
BITC=BITC+1 
REGTS6 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC 


;sLINE PARAMETER REGISTER DATA TEST 
;SET BIT 4 IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 4 WAS SET 

s;CLEAR BIT 4 

sVERIFY THAT BIT 4 WAS CLEARED 


SEQ 46 


;LINE PARAMETER REGI 


;LINE PARAMETER REGI 
sLiNE PARAMETER REGI 


TS bau aad 





172566 T43: MO #340,PS sDISABLE ALL INTERRUPTS 
012640 MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
012626 ain MOV 623, sSET UP TO ESCAPE TO NEXT TEST 
<> 
MOV #, FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
XN=XNe1 
012556 MOV #81111, 8DHSCR sMASTER CLEAR INTERFACE 
MOV »R3 ;SET UP POINTER TO LINE PARAMETER 
MOV ‘ sBIT 4 WILL BE SET IN LINE PARAMETER 
MOV RS. CRS) sSET BIT 4 
MOV CR3),R4 sGET CONTENTS OF LINE PARAMETER 
-IIF NB <>, Cc : ;CLEAR UNWANTED BITS 
7 Se sWAS BIT 
.IIF ION <DHLPR>, <DHLPR>, HLT 2 sLINE PARAMETER REGI 
2 
-IIF ION <DHLPR>, <DHBCR>, HLT 3 sLINE PARAMETER REGI 
-IIF IDN <DHLPR>,<DI.SSR>, HLT “ sLINE PARAMETER REGI 
1$: BIC RS,CR3) :;CLEAR BIT 4 
MOV CR3),R4 sREAD CONTENTS OF LINE PARAMETER 
IIF NB <>, Ic ,R4 ;CLEAR UNWANTED BITS 
ST sWAS BIT 4 CLEARED 
BEQ 2s 
CLR RS 
IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
IIF ION <DHLPR>, <DHBCR>, HLT ;LINE PARAMETER REGI 
IIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
2$: SCOPE 
ae a cep pee paar nee —~ emnecomme 
NLIST 


BITX=BITX+BITX 





ne 





SEQ 47 
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BITC=BITC+i 
.LIST 
.ENDC 
000040 BITX=BITX+BITX 
000005 BITC=BITC+1i 
005272 REGTS6 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC 
;LINE PARAMETER REGISTER DATA TEST 
;SET BIT 5S IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 5 WAS SET 
;CLEAR BIT 5 
;VERIFY THAT BIT 5S WAS CLEARED 
005272 TS \XN,4000, 2$ 
005272 012767 000340 172476 T44: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
005300 012767 004000 012550 MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
005306 012767 005360 012536 ~— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
= <> 
ne MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000045 XN=XNel 
005314 012777 004000 012466 MOV #BIT11,@DHSCR sMASTER CLEAR INTERFACE 
005322 016703 012466 MOV DHLPR,RS ;SET UP POINTER TO LINE PARAMETER 
0C5326 012705 000040 MOV #40,R5 ;BIT 5S WILL BE SET IN LINE PARAMETER 
005332 010513 MOV R5,CR3) ;SET BIT 5 
005334 011304 MOV CR3),R4 sGET CONTENTS OF LINE PARAMETER 
-LIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
005336 020504 CMP R5.R4 ;WAS BIT 5 SET 
005340 001401 BEQ is 
005342 -IIF ION <DHLPR>, <DHLPR>, HLT 2 sLINE PARAMETER REGI 
STER ERROR 
005 104002 EMT é 
-IIF IDN <DHLPR>, <DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
-LIF IDN <DHLPR>,<DHSSR>, HLT 4 sLINE PARAMETER REGI 
STER ERROR 
005344 040513 i$: BIC R5,CR3) ;CLEAR BIT 5 
005346 011304 MOV CR3),R4 sREAD CONTENTS OF LINE PARAMETER 
.IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
005350 005704 TST RS ;WAS BIT 5 CLEARED 
005352 001402 BEG 23 
005354 005005 CLR RS 
005356 -IIF ION <DHLPR>, <DHLPR>, HLT é 
STER ERROR 
56 104002 EMT 2 
-LIF IDN <DHLPR>,<DHBCR>, HLT 
STER ERROR 
.1IF IDN <DHLPR>,<DHSSR>, HLT 4 
STER ERROR 
005 104400 23: SCOPE 
.IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1i 
LIST 
-ENDC 
000100 BITX=BITX+BITX 
000006 BITC=BITC+1 
005362 REGTS6 t/DHLPR/,\BITX,*t/LINE PARAMETER/ , \BITC 


;LINE PARAMETER REGISTER DATA TEST 
;SET BIT 6 IN LINE PARAMETER TO 1 
bey ——— 





;sVERIFY THAT BIT 6 WAS SET 
—— nen as 





ee 
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00 
STER ERROR 
00 


5432 


STER ERROR 


STER ERROR 
00 


STER ERROR 
STER ERROR 
0054 


005452 


0cS452 
005452 


005460 
005466 


012767 
012767 
012767 


104400 


000200 
000007 


012767 000340 172316 
012767 004000 012370 
012767 005540 012356 


000340 





172406 
012460 
012446 


012376 


ee AT TS STIS 


SEQ 48 
;CLEAR BIT 6 
;VERIFY THAT BIT 6 WAS CLEARED 
TS \XN,4000,2$ 
T45: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
_— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
; <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel 
MOV #BIT11,@DHSCR ;sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #100,R5 ;BIT 6 WILL BE SET IN LINE PARAMETER 
MOV RS ,CR3) ;SET BIT 6 
MOV CR3),R4 sGET CONTENTS OF LINE PARAMETER 
-ITIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
> i sWAS BIT 6 SET 
.IIF IDN <DHLPR>,<DHLPR>, HLT 2 sLINE PARAMETER REGI 
EMT e 
-IIF ION <DHLPR>,<DHBCR>, HLT 3 sLINE PARAMETER REGI 
.IIF IDN <DHLPR>,<DHSSR>, HLT 4 sLINE PARAMETER REGI 
1$: BIC RS ,CR3) ;CLEAR BIT 6 
MOV CR3) ,R4 sREAD CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
TST sWAS BIT 6 CLEARED 
BEQ 23 
CLR R5 
-IIF ION <DHLPR>, <DHLPR>, HLT Z sLINE PARAMETER REGI 
EMT 2 
-ITIF ION <DHLPR>,<DHBCR>, HLT sLINE PARAMETER REGI 
-IIF ION <DHLPR>,.<DHSSR>, HLT 3 sLINE PARAMETER REGI 
2s: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 
-ENDC 
BITX=BITX+BITX 


BITC=BITC+1i 
REGT t/DHLPR/ ,\BITX,t/LINE PARAMETER/ ,\BITC 


sLINE PARAMETER REGISTER DATA TEST 
sSET BIT 7 IN LINE PARAMETER TO 1 
sVERIFY THAT BIT 7 WAS SET 

sCLEAR BIT 7 

;VERIFY THAT BIT 7 WAS CLEARED 


TS \XN,4000,2$ 
$ MOV 


T46 #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
— MOV #2$ , ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV #,FREEZ1 :SET UP TO LOOP WITH DATA 7 3 


-ENDC 
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SEQ 49 


















000047 XN=XNel 
005474 012777 004000 012306 MOV #681T11,80HSCR sMASTER CLEAR INTERFACE 
005502 016703 012306 MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
005506 012705 000200 MOV #200,R5 ;BIT 7 WILL BE SET IN LINE PARAMETER 
005512 010513 MOV R5,CR3) ;SET BIT 7 
005514 011304 MOV (R3),R4 ;GET CONTENTS OF LINE PARAMETER 
ITF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
005516 020504 CMP RS,R4 ;WAS BIT 7 SET 
oossae — IIF ION <DHLPR DHLPR T 
e < >,<¢ >, HL 2 sLINE PARA T w 
STER ERROR — 
005522 104002 EMT 2 
-IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
.IIF ION <DHLPR>,<DHSSR>, HLT 4 sLINE PARAMETER REGI 
STER ERROR 
005524 040513 i$ BIC RS,CR3) ;CLEAR BIT 7 
005526 011304 MOV CR3),R4 sREAD CONTENTS OF LINE PARAMETER 
.IIF NB <>, BIC @,R4 ;CLEAR UNWANTED 817S 
005530 005704 TST R4 ;WAS BIT 7 CLEARED 
005532 001402 BEQ 23 
005534 005005 CLR R5 
5536 -IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
5536 104002 EMT 2 
-IIF ION <DHLPR>,<DHBCR>, HLT s;LINE PARAMETER REGI 
STER ERROR 
-IIF ION <DHLPR>, <DHSSR>, HLT ;LINE PARAMETER REGI 
STER ERROR 
005 104400 2$: SCOPE 
IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC*BITC+1 
-ENDC 
000400 BITX=BITX+BITX 
000010 BITC=BITC+1 | 
005542 REGTS6 */DHLPR/,\BITX,*/LINE PARAMETER/ ,\8ITC 
sLINE PARAMETER REGISTER DATA TEST 
sSET BIT 10 IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 10 WAS SET 
;CLEAR BIT 10 
sVERIFY THAT BIT 10 WAS CLEARED 
005542 TS \XN,4000, 2% 
005542 012767 000340 172226 T47: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
005550 012767 004000 012300 V #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
005556 012767 005630 012266 i MOV 62% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
- <> 
®,FREEZ1 :SET UP TO LOOP WITH DATA 3 $ 
-ENDC 
XN=XNe1 
005564 012777 004000 012216 MOV #6IT11,8DHSCR sMASTER CLEAR INTERFACE 
005572 016703 012216 MOV DHLPR,R3S ;SET UP POINTER TO LINE PARAMETER 
005576 012705 000400 MOV #400 ,R5 ;BIT 10 WILL BE SET IN LINE PARAMETER 
005602 010513 MOV R5,CR3) ;SET BIT 10 
005604 011304 MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
LIF NB <>, Cc @,R4 ;CLEAR UNWANTED BITS 
005606 020504 CMP R5,R4 sWAS BIT 10 SET 
005610 001401 1$ 
005612 IIF ION <DHLPR>,<DHLPR>, HLT 2 ;sLINE PARAMETER REGI 











~_ - 
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SEQ 50 





005612 104002 _— — _— ounen 
: < >,< >, HLT 3 LINE PARA 
a oe IIF ION DHLPR D , ee 
‘ <DHLPR>,<DHSSR>, HLT 4 LINE PARAMET 
STER ERROR ; METER REGI 
005614 040513 1$: BIC RS5,CR3) ;CLEAR BIT 10 
005616 011304 MOV CR3),R4 sREAD CONTENTS OF LINE PARAMETER 
.IIF NB <>, 8Ic #,R4 ;CLEAR UNWANTED BITS 
005620 005704 TST R4 ;WAS BIT 10 CLEARED 
005622 001402 BEQ 2s 
o0sess — IIF TON” CDHLPR DHLPR T 
‘ < >,< >, HL 2 LINE PARAMETER 
STER ERROR — 
005626 104002 EMT 2 
-IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
.IIF ION <DHLPR>,<DHSSR>, HLT 4 sLINE PARAMETER REGI 
STER ERROR 
005630 104400 2$: SCOPE 
.IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1i 
LIST 
.ENDC 
001000 BITX=BITX+BITX 
000011 BITC=BITC+1 
005632 REGTS6 t/DHLPR/,\BITX.*t/LINE PARAMETER/ ,\BITC 
;LINE PARAMETER REGISTER DATA TEST 
;SET BIT 11 IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 11 WAS SET 
;CLEAR BIT 11 
;VERIFY THAT BIT 11 WAS CLEARED 
005632 TS \XN,4000, 2% 
005632 012767 000340 172136 T50: MOV #340 .PS ;DISABLE ALL INTERRUPTS 
005640 012767 004000 012210 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
005646 012767 005720 012176 — MOV 62% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV @,FREEZi ;SET UP TO LOOP WITH DATA : 3 
.ENDC 
XN=XNel 
005654 012777 004000 012126 MOV @6IT11,@D0HSCR ;MASTER CLEAR INTERFACE 
005662 016703 012126 MOV eR3 ;SET UP POINTER TO LINE PARAMETER 
005666 012705 001000 MOV #1000,R5 ;BIT 11 WILL BE SET IN LINE PARAMETER 
005672 010513 MOV R5,(R3) ;SET BIT 11 
005674 011304 (R3),R4 ;GET CONTENTS OF LINE PARAMETER 
IIF NB <>, Ic @,R4 ;CLEAR UNWANTED BITS 
005676 020504 R5,R4 3WAS BIT 11 SET 
005700 001401 i$ 
005702 IIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
005702 104002 2 
IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
IIF ION <DHLPR>,<DHSSR>, HLT 4a ;LINE PARAMETER REGI 
STER ERROR 
005704 040513 i$: BIC RS ,CR3) ;CLEAR BIT ii 
005706 011304 (R3),.R4 sREAD CONTENTS OF LINE PARAMETER 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
| 005710 005704 R4 sWAS BIT 11 CLEARED 
005712 001402 BEQ 2s 
5716 .IIF ION <DHLPR>,<DHLPR>, HLT é s;LINE PARAMETER REGI 


STER ERROR 














SE 
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-ENDC 





005716 104002 ee 
: 7 7" HLT 3 LINE PARA 
— IIF IDN DHLPR>, <DHSSR | ps 
<DHLPR>, <DHSSR>, HLT 4 LINE PARAMETER 
STER ERROR a ae 
005720 104400 2$: SCOPE 
"IF EQ BITX-4 
"NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
‘LIST 
"ENDC 
002000 BITX=BITX+BITX 
000012 BITC=BITC+1 
005722 REGTS6 */DHLPR/,\BITX,t/LINE PARAMETER/ ,\BITC 
;LINE PARAMETER REGISTER DATA TEST 
;SET BIT 12 IN LINE PARAMETER TO 1 
VERIFY THAT BIT 12 WAS SET 
CLEAR BIT 12 
;VERIFY THAT BIT 12 WAS CLEARED 
005722 TS \XN,4000,2$ 
005722 012767 000340 172046 TSi: | MOV. 340.PS ;DISABLE ALL INTERRUPTS 
005730 012767 004000 012120 MOV —«-@4000, ICOUNT SET UP FOR 4000 ITERATIONS 
005736 012767 006010 012106 MOV #28, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
P «> 
cue | OY CCM PREZ ;SET UP TO LOOP WITH DATA .% 
000052 XN=XNe1 
005744 012777 004000 012036 MOV —«- @BIT11., @DHSCR ;MASTER CLEAR INTERFACE 
005752 016703 012036 MOV _—sOHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
005756 012705 002000 MOV —«- 82000. RS ;BIT 12 WILL BE SET IN LINE PARAMETER 
005762 010513 MOV _— RS, CRB) ;SET BIT 12 
005764 011304 MOV —ss« CR’) RA ;GET CONTENTS OF LINE PARAMETER 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
095766 020504 RS, ;WAS BIT 12 SET 
005770 001401 BEQ 18 
005772 IIF ION <DHLPR>, <DHLPR>, “ut 2 ;LINE PARAMETER REGI 
STER ERROR 
772 104002 2 
IIF ION <DHLPR>, <DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
IIF IDN <DHLPR>, <DHSSR>, HLT) 4 ;LINE PARAMETER REGI 
STER ERROR 
005774 040513 1$ BIC _— RS, CRB) ;CLEAR BIT 12 
005776 011304 MO (R3),R4 ;READ CONTENTS OF LINE PARAMETER 
IIF NB <>, BIC 4,R4 ;CLEAR UNWANTED BITS 
006000 005704 ST ~—s_-R ;WAS BIT 12 CLEARED 
006002 001402 BEQ Ss’ 
006004 005005 CLR —s RS 
006006 IIF IDN <DHLPR>, <DHLPR>, HLT =. ;LINE PARAMETER REGI 
STER ERROR 
006006 104002 2 
IIF ION <DHLPR>, <DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
IIF ION <DHLPR>, <DHSSR>, HLT 3204 ;LINE PARAMETER REGI 
STER ERROR 
006010 104400 2s: SCOPE 
IF €Q BITX-4 
"NLIST 
| BITX=BITX+BITX 
BITC=BITC+1 
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SE 
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004000 BITX=BITX+BITX 
000013 BITC=BITC+1 
006012 REGTS6 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC 
;LINE PARAMETER REGISTER DATA TEST 
;SET BIT 13 IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 13 WAS SET 
;CLEAR BIT 13 
;VERIFY THAT BIT 13 WAS CLEARED 
006012 TS \XN,4000,2$ 
006012 012767 000340 171756 TS2: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
006020 012767 004000 012030 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
006026 012767 006100 012016 — MOV #2$ ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
—_— MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000053 XN=XNeol 
006034 012777 004000 011746 MOV #B1IT11,@DHSCR sMASTER CLEAR INTERFACE 
016703 011746 MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
006046 012705 004000 MOV #4000, R5 ;BIT 13 WILL BE SET IN LINE PARAMETER 
006052 010513 MOV RS ,CR3) ;SET BIT 13 
006054 011304 MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
006056 020504 RS.R ;sWAS BIT 13 SET 
006060 001401 Q i$ 
IIF ION <DHLPR>,<DHLPR>, HLT 2 sLINE PARAMETER REGI 
STER ERROR 
104002 2 
IIF IDN <DHLPR>,<DHBCR>, HLT 3 sLINE PARAMETER REGI 
STER ERROR 
IIF ION <DHLPR>,<DHSSR>, HLT é ;LINE PARAMETER REGI 
STER ERROR 
006064 040513 1$ BIC R5,CR3) ;CLEAR BIT 13 
006066 011304 MOV CR3) RE sREAD CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
006070 005704 TST RE sWAS BIT 13 CLEARED 
006072 001492 BEG 23 
006074 005005 CL RS 
006076 -IIF ION <DHLPR>.<DHLPR>, HLT sLINE PARAMETER REGI 
STER ERROR 
76 104002 2 
IIF ION <DHLPR>,<OHBCR>, HLT sLINE PARAMETER REGI 
STER ERROR 
IIF ION <DHLPR>. <DHSSR>, HLT :LINE PARAMETER REGI 
STER ERROR 
006100 104400 23: SCOPE 
-NLIST 
BITX=BITX+BITX 
BITC*BITC+1 
-LIST 
-ENDC 
010000 BITA*BITY BI TX 
000014 BITC*BITC+1 
006102 REGTS6 *t/DHLPR/,\BITX,*/LINE PARAMETER .\BITC 


sLINE PARAMETER REGISTER DATA TEST 
sSET BIT 14 IN LINE PARAMETER TO i 
sVERIFY THAT BIT 14 WAS SET 

sCLEAR BIT 14 

sVERIFY THAT BIT 14 WAS CLEARED 
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006102 TS \XN,4000,2$ 
006102 012767 000340 171666 153: MOV $340,PS sDISABLE ALL INTERRUPTS 
006110 012767 004000 011740 MOV #4000, ICOUNT s;SET UP FOR 4000 ITERATIONS 
006116 012767 006170 011726 ~— MOV @2$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
nee MOV #,FREEZ1 ;SE) UP TO LOOP WITH DATA 3 3 
000054 XN=XNeo1 
006124 012777 004000 011656 MOV #BIT11,8DHSCR sMASTER CLEAR INTERFACE 
006132 016703 011656 MOV DHLPR,R3 sSET UP POINTER TO LINE PARAMETER 
006136 012705 010000 MOV #10000 ,R5 sBIT 14 WILL BE SET IN LINE PARAMETER 
006142 010513 MOV RS,CR3) ;SET BIT 14 
006144 011304 MOV CR3),R4 sGET CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
006146 020504 CMP RS,R4 sWAS BIT 14 SET 
906152 — IIF ION <DHLPR DHLPR T 
. < >.< >. HL 2 sLINE PA 
STER ERROR INE PARAMETER REGI 
ee IIF 108” <DHLPR DHBCR T 
< >,< >, HL 3 s;LINE PARAMETER ZI 
eee IIF ION DHLPR>,<DHSSR T ato 
< >, <DH >, HL 4 ;LINE PARAMETER 
STER ERROR — 
0C6154 040513 i$ BIC RS .CR3) ;CLEAR BIT 14 
006156 011304 MOV CR3),R4 sREAD CONTENTS OF LINE PARAMETER 
IIF NB <>, BIC &,R4 sCLEAR UNWANTED BITS 
006160 005704 TST R4 sWAS BIT 14 CLEARED 
006162 001402 BEQ 2$ 
006164 005005 CLR RS 
006166 IIF ION <DHLPR>, <DHLPR>, HLT 2 sLINE PARAMETER REST 
STER ERROR 
006166 104002 EMT 2 
-IIF ION <DHLPR>,<DHBCR>, HLT 3 sLINE PARAMETER REGI 
STER ERROR 
-IIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
STER ERROR 
006170 104400 23: SCOPE 
.IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1i 
-LIST 
-ENDC 
020000 BITX=BITX+BITX 
000015 BITC*BITC+1 
006172 REGTS6 t/DHLPR/,\BITX,*t/LINE PARAMETER/,\BITC 
sLINE PARAMETER REGISTER DATA TEST 
;SET BIT 15 IN LINE PARAMETER TO 1 
sVERIFY THAT BIT 15 WAS SET 
;CLEAR BIT 15 
;VERIFY THAT BIT 15 WAS CLEARED 
006172 TS \XN,4000,2$ 
006172 012767 000340 171576 154: MOV #340,PS s;DISABLE ALL INTERRUPTS 
006200 012767 004000 011650 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
006206 012767 006260 011636 a MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘i <> 
| es MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA : 3 
000055 XN=XNel1 
006214 012777 004000 011566 MOV #8IT11,@DHSCR sMASTER CLEAR INTERFACE 
006222 016703 011566 MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
'o-— — ane ee 
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006226 012705 020000 MOV #20000 ,R5 ‘®TT 15 WILL BE SET IN LINE PARAMETER 
006232 010513 MOV R5,CR3) ;SET BIT 15 
006234 011304 MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC %,R4 ;CLEAR UNWANTED BITS 
006236 020504 CMP RS ,R4 ;WAS BIT 15 SET 
906242 _— IIF ION D PR>,<DHLPR 
2 , <DHLPR>,<DHLPR>, HLT 2 
STER ERROR ;LINE PARAMETER REGI 
— IIF ON <0 PR>,<DHBCR 
, <DHLPR>, < >, HLT 3 ;LiNE PA 
STER ERROR oes INE PARAMETER REGI 
‘ N <DHLPR>,<DHSSR>, HLT 4 st Pp 
STER ERROR INE PARAMETER REGI 
006244 040513 1$: BIC RS ,CR3) ;CLEAR BIT 15 
006246 011304 MOV CR3),R4 ;READ CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006250 005704 TST R4 :WAS BIT 15 CLEARED 
006252 001402 BEQ 2$ 
006254 005005 CLR R5 
0062 -IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
006256 104002 EMT 2 
-IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
-IIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
STER ERROR 
006260 104400 23: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
-ENDC 
040000 BITX=BITX+BITX 
000016 BITC=BITC+1 
006262 REGTS6 +t/DHLPR/,\BITX.*/LINE PARAMETER/ ,.\BITC 
sLINE PARAMETER REGISTER DATA TEST 
sSET BIT 16 IN LINE PARAMETER TO 1 
;VERIFY THAT BIT 16 WAS SET 
sCLEAR BIT 16 
sVERIFY THAT BIT 16 WAS CLEARED 
006262 TS \XN,4000,2$ 
005262 012767 000340 171506 155: MOV $240 PS ;DISABLE ALL INTERRUPTS 
006270 012767 004000 011560 MOV #4006, ICOUNT ;SET UP FOR 4000 ITERATIONS 
006276 012767 006350 011546 i MOV 2%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
sine MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000056 XN=XNe1 
006304 012777 004000 011476 MOV #681T11,@0HSCR :MASTER CLEAR INTERFACE 
006312 016703 9011476 MOV DHLPR, RS ;SET UP POINTER TO LINE PARAMETER 
006316 012705 040000 MOV #40000 , RS :BIT 16 WILL BE SET IN LINE PARAMETER 
006322 010513 MOV R5,CR3) ;SET BIT 16 
006324 011304 MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
-LIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
005326 020504 RS ,R4 ;WAS BIT 16 SET 
006330 001401 BEQ i$ 
006332 IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
| 006332 104002 EMT 2 
IIF IDN <DHLPR>,<DHBCR>, HLT ;LINE PARAMETER REGI 
NT Se arene 
IIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 


STER ERROR 





CZ0HA-D MACRO VO4.00 27-JUN-&5 12:46:01 PAGE 17-33 














SEQ 55 





006334 040513 i$: BIC R5,(R3) ;CLEAR BIT 16 
006336 011304 MOV CR3),R4 ;READ CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006340 005704 TST R4 ;WAS BIT 16 CLEARED 
006342 001402 BEQ 2$ 
904846 —_— IIF ION <OHLPR DHLPR 
j < >, <DHLPR>, HLT 2 PA 
STER ERROR ;LINE PARAMETER REGI 
006346 104002 om oa Res a 
. < >,< >. HLT 3 LINE PAPA R 
a IIF ION DHLPR>,<DHSSR preniimerc-nes 
: <DHLPR>,<DHSSR>, HLT 4 LINE PARAMET 
STER ERROR ;LINE METER REGI 
006350 104400 2s: SCOPE 
.IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
.LIST 
.ENDC 
100000 BITX=BITX+BITX 
000017 BITC=BITC+l 
006352 REGTS6 *t/DHLPR/,\BITX,t/LINE PARAMETER/,\GITC 
;LINE PARAMETER REGISTER DATA TEST 
;SET BIT 17 IN LINE PARAMETER TO i 
;VERIFY THAT BIT 17 WAS SET 
;sCLEAR BIT 17 
sVERIFY THAT BIT 17 WAS CLEARED 
006352 TS \XN,4000,2$ 
006352 012767 000340 171416 T56: MOV #340,PS sDISABLE ALL INTERRUPTS 
006360 012767 004000 011470 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
006366 012767 006440 011456 pnp MOV @2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
ss <> 
sai MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA sz 
000057 XN=XNel 
006374 012777 004000 011406 MOV @681T11.@DHSCR sMASTER CLEAR INTERFACE 
006402 016703 011406 MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
006406 012705 100000 MOV #100000, R5 ;BIT 17 WILL BE SET IN LINE PARAMETER 
006412 010513 MOV R5,CR3) ;SET BIT 17 
006414 011304 MOV CR3),.R4 ;GET CONTENTS OF LINE PARAMETER 
.IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
006416 020504 RS ,R4 ;WAS BIT 17 SET 
006420 001401 BEG i$ 
006422 -IIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
006422 104002 2 
IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
IIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
STER ERROR 
006424 040513 1$: BIC R5,(CR3) ;CLEAR BIT 17 
006426 011204 MOV (R3),R4 ;READ CONTENTS OF LINE PARAMETER 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006430 005704 TST R4 sWAS BIT 17 CLEARED 
006432 001402 BEQ 2$ 
006434 005005 CLR R5 
006436 IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
006436 104002 EMT 2 
.IIF ION <DHLPR>,<DHBCR>, HLT ;LINE PARAMETER REGI 
A EE AT TEES TC SETS 
-LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 


STER ERROR 
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006440 104400 2$- SCOPE 
.IF EQ BITX-4 
.NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 
.ENDC 
000000 BITX=BITX+BITX 
000020 BITC=BITC+1 
268 000000 XBIT=BITX 
269 000020 CBIT=BITC 
270 000001 BITX=1 
271 000000 BITC=0 
273 000020 -REPT 16. 
274 REGTS6 *t/DHBCR/,\BITX,+t/BREAK CONTROL/,\BITC 
275 -NLIST 
276 BITX=BITX+BITX 
277 BITC=BITC+1 
278 -LIST 
279 -ENDOR 
006442 REGTS6 t/DHBCR/,\BITX,*t/BREAK CONTROL/,\BITC 
:BREAK CONTROL REGISTER DATA TEST 
;SET BIT O IN BREAK CONTROL 70 1 
;VERIFY THAT BIT O WAS SET 
;CLEAR BIT O 
;VERIFY THAT BIT O WAS CLEARED 
006442 TS \XN,4000,2$ 
006442 012767 000340 171326 T57: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
006450 012767 004000 011400 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
006456 012767 006530 011366 — MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
wine MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000060 XN=XNel 
006464 012777 004000 011316 MOV #BIT11,@DHSCR sMASTER CLEAR INTERFACE 
006472 016703 011326 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
006476 012705 000001 MOV #1,R5 ;BIT O WILL BE SET IN BREAK CONTROL 
006502 010513 MOV R5.CR3) ;SET BIT 0 
006504 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
-I1IF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006506 020504 RS .R4 ;WAS BIT O SET 
006510- 001401 i$ 
IIF IDN <DHBCR>,<DHLPR>, HLT rad ;BREAK CONTROL REGIS 
TER ERROR 
0065 IIF IDN <DHBCR>,.<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
006512 104003 3 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
006514 040513 i$ BIC R5,(R3) ;CLEAR BIT O 
006516 011304 MOV CR3),R4 ;sREAD CONTENTS OF BREAK CONTROL 
IIF NB <>, #,R4 ;CLEAR UNWANTED BITS 
006520 005704 ST R4 ;WAS BIT O CLEARED 
006522 001402 BEQ 2$ 
006524 005005 LR R5 
IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
TER ERROR 
006526 -IIF IDN <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
006526 104003 EMT 3 





Be cco AMR De 
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TER ERROR 
0065 


006532 


TER ERROR 
006602 

TER ERROR 
006602 


TER ERROR 
006604 


006606 


006610 
006612 
006614 


TER ERROR 
006616 

TER ERROR 
006616 


TER ERROR 
006620 


006622 


006622 
006622 


104400 
000002 
000001 


012767 
012767 
012767 


000061 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


104003 
040513 
011304 
005704 


001402 
005005 


104003 


000340 
004000 
006620 


004000 
011236 
000002 


171236 
011310 
011276 


011226 


012767 000340 171146 
006630 012767 004000 011220 


-IIF ION <DHBCR>,<DHSSR>, HLT 
23: SCOPE 

BITX=BITX+BITX 

BITC=BITC+1 

REGTS6 t/DHBCR/,\BITX,+t/BREAK CONTROL/, \BITC 


;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 1 IN BREAK CONTROL TO 1 
sVERIFY THAT BIT 1 WAS SET 

;CLEAR BIT 1 

sVERIFY THAT BIT 1 WAS CLEARED 


TS \XN,4000,2$ 
T60: MOV 





SEQ 57 


4 ;BREAK CONTROL REGIS 





#340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
- MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 5 3 
-ENDC 
XN=XNe1 
MOV #BIT11,@DHSCR :MASTER CLEAR INTERFACE 
MOV DHBCR ,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #2,R5 ;BIT 1 WILL BE SET IN BREAK CONTROL 
MOV RS ,CR3) ;SET BIT 1 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
ea ;sWAS BIT 1 SET 
IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
1$: BIC RS,CR3) ;CLEAR BIT i 
MOV CR3),R4 ;READ CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
TST Ba ;WAS BIT 1 CLEARED 
BEQ 2$ 
CLR RS 
IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF ION <DHBCR>,<DHBCR>, HLT 3 :BREAK CONTROL REGIS 
3 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
23: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
REGTS6 t/DHBCR/,\BITX,t/BREAK CONTROL/,\BITC 


sBREAK CONTROL REGISTER DATA TEST 
sSET BIT 2 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 2 WAS SET 

;CLEAR BIT 2 

;VERIFY THAT BIT 2 WAS CLEARED 


TS \XN,4000,2$ 
Tél: MOV 
MOV 


#340 ,PS 
#4000, ICOUNT 


;DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
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IF NB <> 
one MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000062 XN=XNe1 
006644 012777 004000 011136 MOV #BIT11,@9DHSCR ;MASTER CLEAR INTERFACE 
006652 016703 011146 MOV DHBCR , R3 ;SET UP POINTER TO BREAK CONTROL 
006656 012705 000004 MOV #4 ,R5 ;BIT 2 WILL BE SET IN BREAK CONTROL 
006662 010513 MOV RS,CR3) ;SET BIT 2 
006664 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
.LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006666 020504 CMP RS ,R4 ;WAS BIT 2 SET 
—— See IIF ION <DHBCR DHLPR T 
< >,< >, HL 2 ;BREAK TR R 
- a IIF ION DHBCR DHBCR scones senda 
< a - HLT 3 ; BREAK TROL R 
TER ERROR a 
— IIF IO” SDHBCR DHSSR HLT 
< >,< >, 4 ;BREAK CONTR REG 
TER ERROR si - 
006674 040513 1$: BIC R5,CR3) ;CLEAR BIT 2 
006676 011304 MOV CR3) ,R4 ;READ CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006700 005704 TST R4 ;WAS BIT 2 CLEARED 
0C6702 001402 BEQ 2$ a 
006704 005005 CLR R5 
IIF IDN <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
TER ERROR 
006706 IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
006706 104003 EMT 3 
-IIF IDN <DHBCR>,<DHSSR>, HLT & ;BREAK CONTROL REGIS 
TER ERROR 
006710 104400 2$: SCOPE 
000010 BITX=BITX+BITX 
000003 BITC=BITC+1 
006712 REGTS6 t/DHBCR/,\BITX,*/BREAK CONTROL/,\BITC 
;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 3 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 3 WAS SET 
;CLEAR BIT 3 
;VERIFY THAT BIT 3 WAS CLEARED 
006712 TS \XN,4000,2$ 
006712 012767 000340 171056 Té62: MOV #340 PS ;DISABLE ALL INTERRUPTS 
006720 012767 004000 011130 MOV $4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
006726 012767 0079000 011116 MOV 62%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
sine MOV #,FREEZ1 :SET UP TO LOOP WITH DATA ; 3 
000063 XN=XNe1 
006734 012777 004000 011046 MOV #B8IT11,8DHSCR ;MASTER CLEAR INTERFACE 
006742 016703 011056 MOV DHBCR , RS ;SET UP POINTER TO BREAK CONTROL 
006746 012705 000010 MOV #10,R5 ;BIT 3 WILL BE SET IN BREAK CONTROL 
006752 010513 MOV R5,CR3) ;SET BIT 3 
006754 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
006756 020504 CMP R5 ,R4 :WAS BIT 3 SET 
006760 001401 1$ 
IIF IDN <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
TER ERROR 
' 0067 IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
_ TER ERROR 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 


TER ERROR 








CZDHA-D MACRO VO4.00 27-JUN-85 12:46:01 PAGE 17-37 


TER ERROR 


006776 


*_R ERROR 


00677 


TER ERROR 
007000 


007002 


TER ERROR 
007052 

TER ERROR 
007052 


TER ERROR 
00 


7054 
007056 


007060 
007062 
007064 


TER ERROR 
007066 

TER ERROR 
007066 


| 
a 


TER ERROR 
00 


7070 


040513 
011304 


005704 
001402 
C05005 


104003 


104400 
000020 
000004 


012767 
012767 
012767 


000064 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


104003 
040513 
011304 
005704 


001402 
005005 


104003 


000340 
004000 
007070 


004000 
010766 
000020 


nN il ath nen nena tn mera 


170766 
011040 
011026 


010756 





SEQ 59 


is: BIC R5,(CR3) ;CLEAR BIT 3 
MOV CR3),R4 ;READ CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
ST R4 :WAS BIT 3 CLEARED 
BEQ 2$ 
CLR RS 
IIF IDN <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
-1IF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
2$: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
REGTS6 t/DHBCR/,\BITX,t/BREAK CONTROL/,\BITC 
;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 4 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 4 WAS SET 
;CLEAR BIT 4 
;VERIFY THAT BIT 4 WAS CLEARED 
TS \XN,4000,2$ 
T63: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
a on MOV #2$, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
P <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNel 
MOV #B8IT11,@3DHSCR ;sMASTER CLEAR INTERFACE 
f0V DHBCR,R3 . sSET UP POINTER TO BREAK CONTROL 
MOV #20,R5 ;BIT 4 WILL BE SET IN BREAK CONTROL 
MOV R5,CR3) ;SET BIT 4 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 :;CLEAR UNWANTED BITS 
CMP RS .R4 ;sWAS BIT 4 SET 
BEQ i$ 
IIF IDN <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
i$: BIC 95, (R3) ;CLEAR BIT 4 
MOV ..:3),R4 sREAD CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
TST R4 ;WAS BIT 4 CLEARED 
BEQ 2$ 
CLR RS 
IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
-IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
3 
-IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
2s: SCOPE 
BITX=BITX+BITX 
BITC=BITC+i 





sBREAK CONTROL REGISTER DATA TEST 
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TER ERROR 
0C71 

TER ERROR 
0071 


007072 
007072 
007100 
007106 


007114 
007122 
007126 
007132 
007134 


007136 
007140 


TER ERROR 


TER ERROR 
00 


= 


7160 


007162 


012767 
012767 
012767 


000065 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


104003 


040513 
011304 


005704 
001402 
005005 


104003 


104400 
000100 
000006 


012767 
012767 
012767 


000066 
012777 
016703 
012705 


000340 
004000 
007160 


004000 
010676 
000040 


000340 
004000 
007250 


004000 
010606 
000100 


170676 
010750 
010736 


010666 


010576 


es " eee NS ee 


SEQ 60 
;SET BIT 5S IN BREAK CONTROL TO i 
;VERIFY THAT BIT 5S WAS SET 
;CLEAR BIT 5 
;VERIFY THAT BIT 5 WAS CLEARED 
TS \XN,4000,2$ 
T64: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNe1 
MOV #BIT11,@8DHSCR ;sMASTER CLEAR INTERFACE 
MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #40,R5 ;BIT 5 WILL BE SET IN BREAK CONTROL 
MOV RS,CR3) ;SET BIT 5 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
CMP R5,R4 ;sWAS BIT 5 SET 
BEQ i$ 
.IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
-LIF IDN <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
EMT 3 
-IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
is: BIC R5,CR3) ;CLEAR BIT 5 
MOV CR3),R4 ;READ CONTENTS OF BREAK CONTROL 
-LIF NB <>, BIC #,R4 :;CLEAR UNWANTED BITS 
TST R4 ;WAS BIT 5 CLEARED 
BEQ 2$ 
CLR RS 
.1IF IDN <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
-LIF IDN <DHBCR>,<DHBCR>, HLT ;sBREAK CONTROL REGIS 
EMT 3 
-IIF ION <DHBCR>, <DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
2$: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1i 
REGTS6 *t/DHBCR/,\BITX,t/BREAK CONTROL/,\BITC 


;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 6 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 6 WAS SET 

;CLEAR BIT 6 

;VERIFY THAT BIT 6 WAS CLEARED 


TS \XN,4000,2$ 
MOV 


T65: #340 ,PS ;DISABLE ALL INTERRUPTS 
#4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
ie #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA :; 3 
-ENOC 
XN=XNel1 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO BREAK CONTROL 
;BIT 6 WILL BE SET IN BREAK CONTROL 


MOV #81T11,@D0HSCR 
MOV DHBCR RS 
#100,R5 
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007222 
007224 


007226 
007230 


TER ERROR 
007232 

TER ERROR 
0072 


TER ERROR 
00 


TER ERROR 
007 

TER ERROR 
007 


TER ERROR 
007 


007252 


7322 
TER ERROR 

007324 

007326 

007330 

007334 


bi 


010513 
011304 


020504 
001401 


104003 


012767 
012767 
012767 


000067 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


104003 
040513 
011304 
005704 
005005 


004000 
010516 
000200 


010506 


MOV 
MOV 
TIF NB <>, 
CMP 
BEQ 
.IIF IDN 
TIF IDN 


EMT 
-LIF IDN 
i$: BIC 
MOV 
.IIF NB <>, 
TST 
BEQ 
CL 
.1IF IDN 
.IIF IDN 


EMT 
.ITIF ION 


2$: 


BITC=BITC+1 
REGTS6 


SCOPE 
BITX=BITX+BITX 


RS ,CR3) 
CR3),R4 
BIC 


RS .R4 


i$ 
<DHBCR>,<DHLPR>, 
<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


RS ,CR3) 
CR3),R4 


RS 
<DHBCR>,<DHLPR>, 
<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 





#,R4 





SEQ 61 


;SET BIT 6 

;GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 

sWAS BIT 6 SET 


HLT 2 ;BREAK CONTROL REGIS 
HLT 3 ;sBREAK CONTROL REGIS 
HLT 4 sBREAK CONTROL REGIS 
;CLEAR BIT 6 


sREAD CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 
;WAS BIT 6 CLEARED 


HLT 2 ;BREAK CONTROL REG SS 
HLT 3 sBREAK CONTROL REGI5 
HLT 4 ;BREAK CONTROL REGIS 


+/DHBCR/ ,\BITX,+/BREAK CONTROL/,\BITC 


sBREAK CONTROL REGISTER DATA TEST 
;SET BIT 7 IN BREAK CONTROL TO 1 


sVERIFY THAT BIT 7 WAS SET 
sCLEAR BI 
;VERIFY THAT BIT 7 WAS CLEARED 


ae 


$ 
<DHBCR>, <DHLPR>, 
<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


RS,CR3) 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

;SET UP POINTER TO BREAK CONTROL 
;BIT 7 WILL BE SET IN BREAK CONTROL 
3SET BIT 7 

;GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 

sWAS BIT 7 SET 


HLT 2 ;BREAK CONTROL REGIS 
HLT 3 ;BREAK CONTROL REGIS 
HLT is s;BREAK CONTROL REGIS 
;CLEAR BIT 7 


sREAD CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 
3;WAS BIT 7 CLEARED 





;BREAK CONTROL REGIS 


HLT 2 


= — 

















SEQ 62 
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007336 
TER ERROR 
00 


7336 


TER ERROR 
007349 


007342 


007432 012767 000340 170336 170: 


104003 


012767 
012767 
012767 


000070 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


170426 
010500 
010466 


010416 


.IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 

.IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 

23; SCOPE 

BITX=BITX+BITX 

BITC=BITC+1 

REGTS6 t/DHBCR/,\BITX,+t/BREAK CONTROL/,\BITC 


sBREAK CONTROL REGISTER DATA TEST 
sSET BIT 10 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 10 WAS SET 


;CLEAR BIT 10 
;VERIFY THAT BIT 10 WAS CLEARED 
TS \XN,4000, 2$ 
T67: MOV #340 ,PS ;sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
ie MOV ¢2%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel 
MOV #8IT11.8DHSCR sMASTER CLEAR INTERFACE 
MOV DHBCR,RS ;SET UP POINTER TO SREAK CONTROL 
MOV #400,R5 ;BIT 10 WILL BE SET IN BREAK CONTROL 
MOV R5,CR3) sSET BIT 10 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, Ic #,R4 ;CLEAR UNWANTED BITS 
dae sWAS BIT 10 SET 
-ITIF IDN <DHBCR>,<DHLPR>, HLT 2 :BREAK CONTROL REGIS 
IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
3 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
i$: BIC R5,CR3) ;CLEAR BIT 10 
MOV (R3),.R4 ;READ CONTENTS OF BREAK CONTROL 
-IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
TST RS SHAS BIT 10 CLEARED 
BEQ 2$ 
CLR R5 
IIF ION <DHBCR>, <DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF IDN <DHBCR>, <DHBCR>, HLT ;BREAK CONTROL REGIS 
EMT 3 
.IIF ION <DHBCR>,<DHSSR>, HLT 4 ;C°FAK CONTROL REGIS 
2$: SCOPE 
BITX=BITX+BITX 
BITC=BITC+i 
REGTS6 *t/DHBCR/,\BITX,*/BREAK CONTROL/, \BITC 


sBREAK CONTROL REGISTER DATA TEST 
sSET BIT 11 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 11 WAS SET 
;CLEAR BIT 11 

;sVERIFY THAT BIT 11 WAS CLEARED 








MOV #340,PS DISABLE ALL INTERRUPTS 





er 
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007440 012767 004000 010410 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
007446 012767 007520 010376 wm MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
" <> 
— MOV ¢,FREEZ1 ;SET UP TO LOOP WITH DATA s S 
000071 XN=XNel 
007454 012777 004000 010326 MOV #BIT11,@DHSCR ;MASTER CLEAR INTERFACE 
007462 016703 010336 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
007466 012705 001000 MOV #1000,R5 a” 11 WILL BE SET IN BREAK CONTROL 
007472 010513 MOV RS,CR3) ;SET BIT 1 
007474 011304 MOV CR3).R4 ;GET CONTENTS OF BREAK CONTROL 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
007476 020504 CMP RS ,R4 ;WAS BIT 11 SET 
007500 001401 BEQ i$ 
.ILIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
TER ERROR 
007 .IIF ION <DHBCR>, <DHBCR>, HLT 3 sBREAK CONTROL REGIS 
TER ERROR 
007502 104003 EMT 3 
.IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
007504 040513 1$: BIC R5.CR3) ;CLEAR BIT 11 
007506 011304 MOV CR3),R4 sREAD CONTENTS OF BREAK CONTROL 
.IIF NB <>, BIC &,R4 ;CLEAR UNWANTED BITS 
007510 005704 TST :WAS BIT 11 CLEARED 
007512 001402 BEQ 2$ 
007514 005005 CLR RS 
.IIF IDN <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
16 -IIF IDN <DHBCR>, <DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
007516 104003 EMT 3 
.LIF ION <DHBCR>,.<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
007520 104400 23: SCOPE 
002000 BITX=BITX+BITX 
¢00012 oo a 9 
007522 REGTS6 *t/DHBCR/,\BITX.t/BREAK CONTROL/,\BITC 
;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 12 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 12 WAS SET 
;CLEAR BIT 12 
sVERIFY THAT BIT 12 WAS CLEARED 
007522 TS \XN,4000,2$ 
007522 012767 000340 170246 T71: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
007530 012767 004000 010320 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
007536 012767 007610 010306 ia MOV #23, ESCAPE ISET UP TO ESCAPE TO NEXT TEST 
= <> 
pee MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000072 XN=XNel 
007544 012777 004000 010236 MOV @BIT11,8DHSCR :MASTER CLEAR INTERFACE 
007552 016703 010246 MOV DHBCR ,R3 ;SET UP POINTER TO BREAK CONTROL 
007556 012705 002000 MOV #2000,R5 ;BIT 12 WILL BE SET IN BREAK CONTROL 
007562 010513 MOV R5,CR3) ;SET BIT 12 
007564 011304 MOV CR3),R4 :GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC &,R4 ;CLEAR UNWANTED BITS 
007 020504 MP R5 ,R4 sWAS BIT 12 SET 
007570 001401 1$ 
IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
TER ERROR 


TER ERROR 
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SEQ 64 





007572 104003 _ “a a — 
s < >, <DH >, HLT 4 BREAK TT 
TER ERROR ; CONTROL REGIS 
007574 040513 1$: BIC R5,CR3) ;CLEAR BIT 12 
007576 011304 MOV CR3),R4 ;READ CONTENTS OF BREAK CONTROL 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
007600 005704 TST R4 ;WAS BIT 12 CLEARED 
007602 001402 BEQ 2$ 
007604 005005 CL RS 
.TIF IDN <DHBCR>,<DHLPR>, HLT 2 sBREAK CONTROL REGIS 
ea sae IIF ION DHBCR>, <DHBCR 
6 . < >,< >, HLT 3 “BREAK CONTR R 
TER ERROR . -. Cae 
007606 104003 EMT 3 
.IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
007610 104400 2$: SCOPE 
004000 BITX=BITX+BITX 
000013 BITC=BITC+1 
007612 REGTS6 t/DHBCR/,\BITX,*t/BREAK CONTROL/,\BITC 
;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 13 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 13 WAS SET 
sCLEAR BIT i3 
;VERIFY THAT BIT 13 WAS CLEARED 
007612 TS \XN,4000,2$ 
007612 012767 000340 170156 T72: MGV $340 ,PS ;DISABLE ALL INTERRUPTS 
007620 012767 004000 010230 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
007626 012767 007700 010216 — MOV #23 ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
sine MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 3; $ 
000073 XN=XNel 
007634 012777 010146 MOV @BIT11,8DHSCR sMASTER CLEAR INTERFACE 
007642 016703 MOV DHBCR,R3S ;SET UP POINTER TO BREAK CONTROL 
007646 012705 MOV ° ;BIT 13 WILL BE SET IN BREAK CONTROL 
007652 010513 MOV R5,.CR3) ;SET BIT 13 
007654 011304 MOV (R3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
007656 020504 R5,R4 sWAS BIT 13 SET 
007660 001401 i$ 
— IIF ION <DHBCR>,<DHLPR>, HLT e ;BREAK CONTROL REGIS 
0076 IIF ION <DHBCR>, <DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
007662 104003 3 
IIF ION <DHBCR>, <DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
007664 040513 1$ BIC R5,CR3) ;CLEAR BIT 13 
007666 011304 MOV CR3) ,.R4 sREAD CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
007670 005704 TST R4 sWAS BIT 13 CLEARED 
007672 001402 BEQ 2$ 
007674 005005 CLR R5 
——ow IIF IDN <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
E 
00 7676 IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
007676 104003 EMT 3 
-ITIF ION <DHBCR>,<DHSSR>, HLT a ;BREAK CONTROL REGIS 
TER ERROR 
bene eran aeeoueS 
010600 BITX=BITX+BITX 
000014 ATTCeATTCe1 
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SEQ 65 


sBREAK CONTROL REGISTER DATA TEST 
;SET BIT 14 IN BREAK CONTROL TO 1 


sVERIFY THAT BIT 14 WAS SET 


;CLEAR BIT 14 


;VERIFY THAT BIT 14 WAS CLEARED 











007702 TS \XN,4000,2$ 
007702 012767 000340 170066 173: MOV #340 ,PS ;sDISABLE ALL INTERRUPTS 
007710 012767 004000 010140 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
007716 012767 007770 010126 -- MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
— MOV ¢,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000074 XN=XNe1 
007724 012777 004000 010056 MOV #68IT11,8D0HSCR sMASTER CLEAR INTERFACE 
007732 016703 010066 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
007736 012705 010000 MOV #10000 ,R5 ;BIT 14 WILL BE SET IN BREAK CONTROL 
007742 010513 MOV RS5S,CR3) ;SET BIT 14 
007744 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
007746 020504 ° ;sWAS BIT 14 SET 
007750 001401 i$ 
om genen IIF ION <DHBCR>,<DHLPR>, HLT sBREAK CONTROL REGIS 
0077 IIF ION <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
007752 104003 3 
IIF ION <DHBCR>, <DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
007754 040513 i$ BIC RS5.CR3) ;CLEAR BIT 14 
007756 011304 CR3),R4 sREAD CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
007760 005704 SHAS BIT 14 CLEARED 
007762 001402 BEQ e$ 
007764 005005 # RS 
.IIF ION <DHBCR>,<DHLPR>, HLT 
TER ERROR 
66 .IIF ION <DHBCR>, <DHBCR>,. HLT 
TER ERROR 
66 104003 3 
-IIF ION <DHBCR>,<DHSSR>, HLT 4 
TER ERROR 
007770 104400 2$: SCOPE 
020000 BITX=BITX+BITX 
000015 BITC*BITC+1 
007772 REGTS6 *t/OHBCR/,\BITX.*t/BREAK CONTROL/, \BITC 
;BREAK aes. REGISTER DATA TEST 
sSET BIT 15 IN BREAK CONTROL TO 1 
sVERIFY THAT BIT 15 WAS SET 
SCLEAR BIT 15 
sVERIFY THAT BIT 15 WAS CLEARED 
007772 TS \XN,4000,28 
007772 012767 000340 167776 174: 0340 .PS :DISABLE ALL INTERRUPTS 
010000 912767 004000 010050 MOV @4000, ICOUNT :SET UP FOR 4000 ITERATIONS 
010006 012767 010060 010036 ia MOV 62%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
ae MOV @, FREEZ1 3SET UP TO LOOP WITH DATA 
000075 XN=XNo1 
010014 012777 004000 007766 #61711 ,@0HSCR sMASTER CLEAR INTERFACE 





a 


ee _—~ 
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SEQ 66 





010022 016703 007776 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
010026 012795 020000 MOV #20000 ,R5 ;BIT 15 WILL BE SET IN BREAK CONTROL 
010032 010513 MOV RS,.CR3) ;SET BIT 15 
010034 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
010036 020504 CMP RS ,R4 ;WAS BIT 15 SET 
010040 001401 ow we a — 
. < >, <DHLPR>, HLT 2 R 
TER ERROR - ‘ ;BREAK CONTROL REGIS 
010042 -ITIF ION <DHBCR>,<DHBCR>, HLT 3 REAK 
TER ERROR ;BREAK CONTROL REGIS 
010042 104003 _ — ‘etn — 
; < >, <DHSSR>, HLT 4 ;BREAK 
TER ERROR BREAK CONTROL REGIS 
010044 040513 1$ BIC RS,CR3) ;CLEAR BIT 15 
010046 011304 MOV CR3),R4 sREAD CONTENTS OF BREAK CONTROL 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
010050 005704 TST R4 ;WAS BIT 15 CLEARED 
010052 001402 BEQ es 
oe IIF = <DHOCR DHLPR T 
. < >, <DHLPR>, HL 2 ; BREAK I 
TER ERROR REAK CONTROL REGIS 
010056 -IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
010056 104003 EMT 3 
-IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
010060 104400 2s: SCOPE 
040000 BITX=BITX+BITX 
000016 BITC=BITC+1 
010062 REGTS6 *t/DHBCR/,\BITX,*/BREAK CONTROL/,\BITC 
;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 16 IN BREAK CONTROL TO 1 
;VERIFY THAT BIT 16 WAS SET 
:CLEAR BIT 16 
:VERIFY THAT BIT 16 WAS CLEARED 
010062 TS \XN,4000,2$ 
010062 012767 000340 167706 175: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
010070 012767 004000 007760 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
010076 012767 910150 007746 ~ MOV @23 ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
me MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000076 XN=XNel 
010104 012777 004900 007676 MOV #61T11,@DHSCR :MASTER CLEAR INTERFACE 
010112 016703 007706 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
019116 012705 040000 MOV #40000 ,R5 ;BIT 16 WILL BE SET IN BREAK CONTROL 
010122 010513 MOV R5,CR3) ;SET BIT 16 
010124 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC ¢,R4 ;CLEAR UNWANTED BITS 
019126 020504 R5,R4 sWAS BIT 16 SET 
010130 001401 i$ 
IIF ION . <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
019132 IIF IDN <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
010132 164003 EMT 3 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
010134 040513 1$ BIC R5,(R3) ;CLEAR BIT 16 
010136 011304 MOV (R3),R4 ;READ CONTENTS OF BREAK CONTROL 
es en op Bee . ——————— 
019140 005704 TST R4 ;WAS BIT 16 CLEARED 
010142 001402 BEQ 2e$ 


— 


mee —_— 
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010144 
TER ERROR 


010146 
TER ERROR 
010146 


TER ERROR 
010150 


010152 


010152 
010152 
010160 
010166 


010174 
010202 
010206 
010212 
010214 


010216 
010220 


TER ERROR 
TER ERROR 


TER ERROR 


TER ERROR 
TER ERROR 


TER ERROR 


005005 


104003 


104400 
100000 
000017 


012767 
012767 
012767 


000077 
012777 
016703 
012705 
010513 
011304 


020504 
001401 


000340 
004000 
010240 


004000 
007616 
100000 


167616 
007670 
007656 


007606 


CL 
.IIF ION 
.IIF ION 


EMT 
-IIF ION 


2$: SCOPE 
BITX*BITX+BITX 
BITC=BITC+1 

REGTS6 





RS 
<DHBCR>,<DHLPR>, 


<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 





SEQ 67 


HLT 2 ;BREAK CONTROL REGIS 
HLT 3 ;BREAK CONTROL REGIS 
HLT 4 sBREAK CONTROL REGIS 


+/DHBCR/ ,\BITX,*t/BREAK CONTROL/,\BITC 


s;BREAK CONTROL REGISTER DATA TEST 
;SET BIT 17 IN BREAK CONTROL TO 1 


sVERIFY THAT BIT 17 WAS SET 


sCLEAR BIT 17 


;VERIFY THAT BIT 17 WAS CLEARED 


TS \XN,4000,2$ 
T76: V 


IF NB <> 


-ENOC 
XN=XNel 


-IIF ION 


EMT 
-IIF IDN 


2s: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
XBIT=BITX 
CBIT=BITC 
BITX=1 

BITC=0 

mert| | 7 


-IF EQ BITX-40 
»~NLIST 


#2$ , ESCAPE 
@,FREEZ1 


#61T11,8D0HSCR 


<DHBCR>,<DHLPR>, 
<DHBCR>,<OHBCR>, 


3 
<DHBCR>,<DHSSR>, 


<DHBCR>, <DHLPR>, 
<DHBCR>.<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


; SAT st: oS 


;DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA s 3 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO BREAK CONTROL 
:BIT 17 WILL BE SET IN BREAK CONTROL 
;SET BIT 17 
;GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 
;WAS BIT 17 SET 


HLT 2 :BREAK CONTROL REGIS 
HLT 3 ;BREAK CONTROL REGIS 
HLT 5 sBREAK CONTROL REGIS 


;CLEAR BIT 17 

sREAD CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 

sWAS BIT 17 CLEARED 


HLT 2 ;BREAK CONTROL REGIS 
HLT 3 sBREAK CONTROL REGIS 
HLT 4 ;BREAK CONTROL REGIS 





com —_—_—_ 








I Cre em OS ew a weet me 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


10242 


010242 
010242 
010250 
010256 


010264 
010272 
010276 
010302 
010304 
010306 
010312 
010314 


010316 


010316 
010320 
010322 
010324 
019330 
010332 
010334 


019336 


010336 
010340 


012767 
012767 
012767 


000100 
012777 
016703 
012705 
010513 
011304 
042704 
029504 
001401 


104004 
040513 
011304 
042704 
005704 
001402 
005005 


104004 
104400 


000340 
004000 
010340 


004000 
007530 
000001 


000700 


000700 


167526 
007600 
007566 


007516 


BITX=100000 


BITC?'? 


“NLIST 


BITX=BITX+BITX 
BITC=BITC+1 


LIST 


REGTS6 


t/DHSSR/ ,\BITX,*t/SILO STATUS/,\BITC, 700 


sSILO STATUS REGISTER DATA TEST 
;SET BIT O IN SILO STATUS TO 1 
;VERIFY THAT BIT O WAS SET 
;CLEAR BIT 0 

sVERIFY THAT BIT O WAS CLEARED 





SEQ 68 


L \XN 4000, 2$ 


177 MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT :SET UP FOR 4000 ITERATIONS 
~— MOV #2$, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
2 <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #BIT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV DHSSR,R3 ;SET UP POINTER TO SILO STATUS 
MOV #1,R5 ;BIT O WILL BE SET IN SILO STATUS 
MOV RS ,CR3) ;SET BIT O 
MOV CR3),R4 :GET CONTENTS OF SILO STATUS 
IIF NB <700>, BIC #700 ,R4 ;CLEAR UNWANTED BITS 
ty ;WAS BIT O SET 
-LIF IDN <DHSSR>,<DHLPR>, HLT 2 ;SILO STATUS REGISTE 
-1IF ION <DHSSR>,<DHBCR>, HLT 3 :SILO STATUS REGISTE 
-LIF IDN <DHSSR>,<DHSSR>, HLT 4 :SILO STATUS REGISTE 
EMT 
i$: BIC R5,CR3) ;CLEAR BIT 0 
MOV CR3),R4 sREAD CONTENTS OF SILO STATUS 
-1IF NB <700>, BIC $700 ,R4 ;CLEAR UNWANTED BITS 
TST R4 ;WAS BIT O CLEARED 
BEQ 2$ 
CL RS 
-LIF IDN <DHSSR>,<DHLPR>, HLT 2 ;SILO STATUS REGISTE 
-LTIF ION <DHSSR>, <DHBCR>, HLT 3 :SILO STATUS REGISTE 
-1IF ION <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
EMT 4 
2s: SCOPE 
-IF EQ BITX-40 
-NLIST 
BITX=100000 
BITC=17 
LIST 
IFF 


BITX=BITX+BITX 
BITC=BITC+1 











es mt ee ee ee ee eee 
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-ENDC 
010342 REGTS6 t/DHSSR/,\BITX,t/SILO STATUS/,\BITC, 700 
;SILO STATUS REGISTER DATA TEST 
;SET BIT 1 IN SILO STATUS TO 1 
;VERIFY THAT BIT 1 WAS SET 
;CLEAR BIT 1 
;VERIFY THAT BIT 1 WAS CLEARED 
010342 TS \XN,4000,2$ 
010342 012767 000340 167426 1100: MOV #340,PS ;DISABLE ALL INTERRUPTS 
010350 012767 004000 007500 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
020356 012767 010440 007466 — MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
P <> 
wine MOV ®,FREEZ1 ;SET UP TO LOOP WITH DATA :3 
000101 \N=XNe 1 
010364 012777 004000 007416 MOV #BIT11,@DHSCR ;MASTER CLEAR INTERFACE 
010372 016703 007430 MOV OHSSR,R3 ;SET UP POINTER TO SILO STATUS 
010376 012705 000002 MOV #2,R5 ;BIT 1 WILL BE SET IN SILO STATUS 
010402 010513 MOV R5.CR3) ;SET BIT 1 
010404 011304 MOV (R3),R4 ;GET CONTENTS OF SILO STATUS 
010406 042704 000700 IIF NB <700>, BIC #700,R4 ;CLEAR UNWANTED BITS 
010412 020504 CMP R5,R4 ;WAS BIT 1 SET 
010414 001401 BEQ 13 
— IIF ION <DHSSR>, <DHLPR>, HLT 2 ;SILO STATUS REGISTE 
am 2 IIF IDN <DHSSR>, <DHBCR>, HLT 3 ;SILO STATUS REGISTE 
Nias 010416 .IIF IDN <DHSSR>, <DHSSR>, HLT 4 ;SILO STATUS REGISTE 
010416 104004 EMT 4 
010420 040513 i$: BIC R5,(R3) ;CLEAR BIT 1 
010422 011304 MOV (R3),R4 ;READ CONTENTS OF SILO STATUS 
010424 042704 000700 .IIF NB <700>, BIC #700,R4 ;CLEAR UNWANTED BITS 
010430 005704 TST R4 ;WAS BIT 1 CLEARED 
010432 001402 BEQ 2$ 
010434 005005 CLR RS 
reeset .IIF IDN <DHSSR>, <DHLPR>, HLT 2 ;SILO STATUS REGISTE 
E 
wii -IIF ION <DHSSR>, <DHBCR>, HLT 3 ;SILO STATUS REGISTE 
ete 010436 _IIF IDN <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
010436 104004 EMT 4 
010440 104400 2$: SCOPE 
-IF €Q BITX-40 
“NLIST 
BITX=100000 
BITC=17 
LIST 
“IFF 
000004 BITX=BITX+BITX 
000002 BITC-BITC+1 
010442 REGTS6 ¢t/DHSSR/,\BITX,t/SILO STATUS/,\BITC, 700 


;SILO STATUS REGISTER DATA TEST 
;SET BIT 2 IN SILO STATUS TO 1 
;VERIFY THAT BIT 2 WAS SET 
;CLEAR BIT 2 

;VERIFY THAT BIT 2 WAS CLEARED 


ESET SES TA SEATS NER DE TLE I A CL 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


| 
‘ 


010514 


010516 


010516 
010520 
010522 
010524 
010530 
010532 
010534 


010536 


010536 
010540 


010542 


010542 
010542 
010550 
010556 


010564 012777 004000 007216 
anneal 


012767 
012767 
012767 


000102 
012777 
016703 
012705 
010513 
011304 
042704 
020504 
001401 


104004 
040515 
011304 
042704 
005704 
001402 
005005 


104004 
104400 


000010 
000003 


012767 
012767 
012767 


000103 


000340 
004000 
010540 


004000 
007330 
000004 


000700 


000700 


000340 167226 
004000 007300 
010640 007266 





167326 


007316 


SEQ 70 
TS \XN,4000,2$ 
T101: MOV #340,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA  . 
.ENDC 
XN=XNe1 
MOV #BIT11,@DHSCR ;sMASTER CLEAR INTERFACE 
MOV DHSSR,R3 ;SET UP POINTER TO SILO STATUS 
MOV #4 ,R5 ;BIT 2 WILL BE SET IN SILO STATUS 
MOV R5,(R3) ;SET BIT 2 
MOV CR3),R4 ;GET CONTENTS OF SILO STATUS 
.LIF NB <700>, BIC #700 ,R4 ;CLEAR UNWANTED BITS 
CMP RS ,R4 ;WAS BIT 2 SET 
BEQ 1$ 
.IIF ION <DHSSR>,<DHLPR>, HLT 2 ;SILO STATUS REGISTE 
.LIF IDN <DHSSR>,<DHBCR>, HLT 3 ;SILO STATUS REGISTE 
-ITIF IDN <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
EMT 
1$: BIC R5,CR3) ;CLEAR BIT 2 
MOV CR3),R4 ;READ CONTENTS OF SILO STATUS 
-LIF NB <700>, BIC #700 ,R4 ;CLEAR UNWANTED BITS 
TST R4 :WAS BIT 2 CLEARED 
BEQ 2$ 
CL RS 
-LIF ION <DHSSR>,<DHLPR>, HLT 2 ;SILO STATUS REGISTE 
-LIF IDN <DHSSR>,<DHBCR>, HLT 3 :SILO STATUS REGISTE 
-IIF IDN <DHSSR>,<DHSSR>, HLT 4 :SILO STATUS REGISTE 
EMT A 
2$: SCOPE 
-IF EQ BITX-40 
-NLIST 
BITX=100000 
BITC=17 
-LIST 
LFF 
BITX=BITX+BITX 
BITC=BITC+1i J = 
-ENDC 
REGTS6 t/DHSSR/,\BITX,*/SILO STATUS/, \BITC, 700 


:SILO STATUS REGISTER DATA TEST 
;SET BIT 3 IN SILO STATUS TO 1 
;VERIFY THAT BIT 3 WAS SET 
;CLEAR BIT 3 

;VERIFY THAT BIT 3 WAS CLEARED 


TS \XN,4000,2$ 





T7102: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 

MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
a V #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 

MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNe1 

#BIT11,9D0HSCR sMASTER CLEAR INTERFACE 


= < meee 


Se 
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R ERROR 
R ERROR 


0 
R ERROR 
0 


R ERROR 
k ERROR 
R ERROR 


010572 
010576 


010642 


019714 


016703 007230 
roe Lng 000010 


104004 
104400 


000020 
000004 


012767 
012767 
012767 


000700 


000700 





167126 
007200 
007166 


007116 


rbd EON DHSER YONDER? SSS 


MOV DHSSR,R3 
MOV #10,R5 
MOV RS ,CR3) 
MOV R3),R4 
-TIF NB <700>, BIC #700 ,R4 
CMP . 
BEQ i$ 
-LIF ION <DHSSR>,<DHLPR>, 
.IIF ION <DHSSR>,<DHBCR>, 
.IIF ION <DHSSR>,<DHSSR>, 
EMT 4 
i$: BIC R5,CR3) 
MOV CR3),R4 
.IIF NB <700>, BIC #700 ,R4 
TST 
BEQ 2$ 
CLR RS 
.IIF ION <DHSSR>,<DHLPR>, 
.IIF IDN <DHSSR>, <DHBCR>, 
.IIF IDN <DHSSR>,<DHSSR>, 
EMT 4 
2$: SCOPE 
-IF EQ BITX-40 
-NLIST 
BITX=100000 
BITC=17 
LIST 
.IFF 
BITX=BITX+BITX 
BITC=BITC+1 
-ENDC 
REGTS6 


SEQ 71 


;SET UP POINTER TO SILO STATUS 
;BIT 3 WILL BE SET IN SILO STATUS 
;SET BIT 3 

;GET CONTENTS OF SILO STATUS 
;CLEAR UNWANTED BITS 

;WAS BIT 3 SET 


HLT 2 ;SILO STATUS REGISTE 
HLT 3 ;SiLO STATUS REGISTE 
HLT 4 ;SILO STATUS REGISTE 
;CLEAR BIT 3 


sREAD CONTENTS OF SILO STATUS 
;CLEAR UNWANTED BITS 
sWAS BIT 3 CLEARED 


HLT sSILO STATUS REGISTE 
HLT sSILO STATUS REGISTE 
HLT sSILO STATUS REGISTE 


t/DHSSR/ ,\BITX,*/SILO STATUS/,\BITC, 700 


sSILO STATUS REGISTER DATA TEST 
sSET BIT 4 IN SILO STATUS TO 
THAT BIT 4 WAS SET 


; VERIFY 
sCLEAR BIT 4 


sVERIFY THAT BIT 4 WAS CLEARED 


TS \XN,4000,2$ 


T1003: MOV #340 ,PS 
MOV #4000, ICOUNT 
#2% , ESCAPE 
-IF NB <> 
#, FREEZ1 
-ENDC 
XN=XNe1 
MOV #6IT11,@DHSCR 
MOV DHSSR,RS 
MOV #20,R5 
MOV RS ,CR3) 
MOV CR3),R4 
-LIF NB <700>, BIC #700 ,R4 
CMP ’ 
BEQ 1$ 
.LIF ION <DHSSR>,<DHLPR>, 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 4800 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 

:SET UP POINTER TO SILO STATUS 
;BIT 4 WILL BE SET IN SILO STATUS 
;SET BIT 4 

:;GET CONTENTS OF SILO STATUS 
;CLEAR UNWANTED BITS 

:;WAS BIT 4 SET 


HLT 2 


;SILO STATUS REGISTE 
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R ERROR 


R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 





R ERROR 


010716 


010716 
010720 
010722 
010724 
010730 
010732 
010734 


010736 


010736 
010740 


010742 


010742 
010742 
010750 
010756 


010764 
010772 
019776 
011002 
011004 
011006 
011012 
011014 


104004 
040513 
011304 
042704 
005704 
001402 
005005 


104004 
104400 


000040 
000005 


012767 
012767 
012767 


000105 
012777 
016703 
012705 
010513 
011304 
042704 
020504 
001401 


104004 
040513 
011304 
042704 
005704 
001402 
005005 


000700 


000340 
004000 
011040 


004000 
007030 
000040 


000700 


000700 


167026 
007100 
007066 


007016 


HLT 4 


TSS ew 


SEQ 72 


;SILO STATUS REGISTE 


;CLEAR BIT 4 

sREAD CONTENTS OF SILO STATUS 
;CLEAR UNWANTED BITS 

;WAS BIT 4 CLEARED 


HLT 2 sSiL™ STATUS REGISTE 
HLT sSILO STATUS REGISTE 
HLT 4 sSILO STATUS REGISTE 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 3; 3 


sMASTER CLEAR INTERFACE 

;SET UP POINTER TO SILO STATUS 
3811 5 WILL BE SET IN SILO STATUS 
s;SET BIT 5 

sGET CONTENTS OF SILO STATUS 
;CLEAR UNWANTED BITS 


;WAS BIT 5 SET 

HLT 2 ;SILO STATUS REGISTE 
HLT ;SILO STATUS REGISTE 
HLT a :SILO STATUS REGISTE 
;CLEAR BIT 5 


sREAD CONTENTS OF SILO STATUS 
s;CLEAR UNWANTED BITS 
;WAS BIT 5 CLEARED 


.1IF ION <DHSSR>,<DHSSR>, 
EMT 4 
1$: BIC RS5,CR3) 
MOV (R3),R4 
.IIF NB <700>, BIC #700 ,R4 
TST R4 
BEQ 2$ 
CLR RS 
IIF ION <DHSSR>,<DHLPR>, 
.IIF IDN <DHSSR>,<DHBCR>, 
.IIF IDN <DHSSR>,<DHSSR>, 
EMT 4 
2$: SCOPE 
.IF EQ BITX-40 
-NLIST 
BITX=100000 
BITC=17 
LIST 
.IFF 
BITX=BITX+BITX 
BITC=BITC+1 
.ENDC 
REGTS6 t/DHSSR/,\BITX,t/SILO STATUS/, \BITC, 700 
;SILO STATUS REGISTER DATA TEST 
;SET BIT 5 IN SILO STATUS TO i 
;VERIFY THAT BIT 5 WAS SET 
;CLEAR BIT 5S 
;VERIFY THAT BIT 5 WAS CLEARED 
TS \XN,4000,2$ 
T7104: MOV #340 ,PS 
_ MOV #4000, ICOUNT 
’ MOV #23 , ESCAPE 
-IF NB <> 
MOV @,FREEZ1 
-ENDC 
XN=XNel 
MOV #68IT11,@8DHSCR 
MOV DHSSR,RS 
MOV #40,R5 
MOV RS ,CR3) 
MOV CR3),R4 
IIF NB <700>, BIC #700 ,R4 
BEQ i$ 
IIF IDN <DHSSR>, <DHLPR>, 
IIF ION <DHSSR>,<DHBCR>, 
IIF IDN <DHSSR>,<DHSSR>, 
EMT 4 
1$: BIC R5,CR3) 
MOV CR3),R4 
-IIF NB <700>, BIC #700 ,R4 
TST R4 
BEQ 2$ 
CLR RS 


re ON BHR BHEPR OS TC er” 





Lm eee ee 





— 
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» chem -LIF IDN <DHSSR>,<DHBCR>, HLT 3 ;SILO STATUS REGISTE 
_— 011036 -1IF IDN <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
011036 104004 EMT 4 
011040 104400 2$: SCOPE 
.IF EQ BITX-40 
100000 BITX=100000 
000017 BITC=17 
IFF 
»NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
.ENDC 
011042 REGTS6 t/DHSSR/,\BITX,t/SILO STATUS/,\BITC, 700 
:SILO STATUS REGISTER DATA TEST 
;SET BIT 17 IN SILO STATUS TO 1 
:VERIFY THAT BIT 17 WAS SET 
;CLEAR BIT 17 
;VERIFY THAT BIT 17 WAS CLEARED 
011042 TS \XN,4000,2$ 
011042 012767 000340 166726 T1105: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
011050 012767 004000 007000 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
011056 012767 011140 006766 on wie MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
“ <> 
— MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000106 XN=XNe1 
011064 012777 004000 006716 MOV #B1IT11,9DHSCR ;sMASTER CLEAR INTERFACE 
011072 016703 006730 MOV DHSSR,R3 ;SET UP POINTER TO SILO STATUS 
011076 012705 100000 MOV #100000, RS ;BIT 17 WILL BE SET IN SILO STATUS 
011102 010513 MOV R5,(R3) ;SET BIT 17 
011104 011304 MOV (R3),R4 ;GET CONTENTS OF SILO STATUS 
011106 042704 000700 -LIF NB <700>, BIC #700 ,R4 ;CLEAR UNWANTED BITS 
011112 020504 CMP oR :WAS BIT 17 SET 
011114 001401 BEQ i$ 
» ieee - .ZIF IDN <DHSSR>,<DHLPR>, HLT ;SILO STATUS REGISTE 
ao ie -LIF IDN <DHSSR>,<DHBCR>, HLT :SILO STATUS REGISTE 
n cee 011116 -L1IF IDN <DHSSR>,<DHSSR>, HLT 4 :SILO STATUS REGISTE 
011116 104004 EMT 4 
011120 040513 1$: BIC RS,CR3) ;CLEAR BIT 17 
011122 011304 MOV CR3),R4 ;READ CONTENTS OF SILO STATUS 
011124 042704 000700 -LIF NB <700>, BIC #700 ,R4 ;CLEAR UNWANTED BITS 
011130 005704 TST R4 ;WAS BIT 17 CLEARED 
011132 001402 BEQ 2s 
011134 005005 CLR RS 
» nee -LIF ION <DHSSR>,<DHLPR>, HLT 2 ;SILO STATUS REGISTE 
2 onee -LIF ION <DHSSR>,<DHBCR>, HLT 3 ;SILO STATUS REGISTE 
2 eee 1136 -1IF ION <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
011136 104004 EMT 4 
011140 104400 2$: SCOPE 
-IF EQ BITX-40 
-NLIST 
BITX=100000 
ae = 


pay. eu 





-LIST 
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011142 


011142 
011142 
011150 
011156 


011164 
011172 
011176 


011202 


011206 
011212 


011214 
011216 


000000 
000020 


000000 
000020 
000001 
000000 
000017 


177776 
177766 
177766 


012767 
012767 
012767 


000107 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


011244 


004900 
006616 
177766 
177767 


000001 


166626 
006700 
006666 


006616 


SEQ 74 
.IFF 
BITX=BITX+BITX 
BITC=BITC+1i 
.ENDC 
XBIT=BITX 
CBIT=BITC 
BITX=1 
BITC=0 
-REPT 15. 
.NLIST 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE177767 
—_" 
REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC,177767,\BITCLR 
-IF EQ BITX-4 
.NLIST 
BITX=BITX+BITX 
BITC=BITC+1i 
.LIST 
.ENDC 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+i 
-LIST 
.ENDR 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE177767 
BITCLR=CLRBIT 
REGTS7 t/DHLPR/,\BITX.t/LINE PARAMETER/ ,\BITC,177767,\BITCLR 
;LINE PARAMETER REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO iS 
;CLEAR BIT O 
;VERIFY THAT BI; O WAS CLEARED 
sRESTORE BIT O 
;VERIFY THAT BIT O WAS SET 
TS \XN,4000,2$ 
T106: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000 , ICOUNT ;SET UP FOR 4000 ITERATIONS 
+ on MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
E <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #6IT11,9DHSCR sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #177766,R5 ;(R5)=EXPECTED DATA 
:IN LINE PARAMETER REGISTER, 177766 
MOV #177767, CR3) ;SET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
BIC #1,(R3) ;CLEAR BIT O 
MOV (R3),R4 ;GET CONTENTS OF LINE PARAMETER 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
HA > ;WAS BIT O CLEARED 
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011220 
STER ERROR 
011220 


STER ERROR 


STER ERROR 
011222 
011226 


011230 
011234 
021236 


011242 
STER ERROR 
011242 


STER ERROR 


STER ERROR 
011244 


011246 


011246 
011246 
011254 
011262 


011270 
011276 
011302 


011306 


011312 
011316 


011320 
011322 
011324 
STER ERROR 
od 


104002 


052713 
011304 


022704 
001403 
012705 


104002 


104400 


000002 
000001 
177775 
177765 
177765 


012767 
012767 
012767 


000110 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


000001 


177767 
177767 


000340 
004000 
011350 


004000 
006512 
177765 
177767 


vv0002 


166522 
006574 
006562 


006512 


a ee errno eee RS 





.LIF ION <DHLPR>,<DHLPR>, 
EMT 2 
.LIF IDN <DHLPR>,<DHBCR>, 
.IIF IDN <DHLPR>,<DHSSR>, 
1$: BIS #1,C0R3) 
MOV CR3),R4 
.IIF NB <>, BIC #,R4 
CMP #177767,R4 
BEQ 2$ 
MOV #177767,R5 
.IIF ION <DHLPR>,<DHLPR>, 
EMT 2 
.LIF ION <DHLPR>,<DHBCR>, 
-IIF ION <DHLPR>,<DHSSR>, 
2s: SCOPE 
-1F EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
-ENDC 
BITX=BITX+BITX 
BITC=BITC+1 
CCRBIT=-BITX-1 
CLRBIT =CCRBITE177767 
BITCLR=CLRBIT 
REGTS 





SEQ 75 


HLT 2 ;LINE PARAMETER REGI 

HLT 3 _~INE PARAMETER REGI 

HLT 4 ;LINE PARAMETER REGI 
;SET BIT 0 


;CLEAR UNWANTED BITS 
;WAS BIT O SET 


;C(R5)=EXPECTED DATA IN 

;LINE PARAMETER REGISTER, 177767 
HLT 2 ;LINE PARAMETER REGI 
HLT 3 


HLT 4 


sLINE PARAMETER REGI 
sLINE PARAMETER REGI 


7 ‘t/OHLPR/,\BITX,+/LINE PARAMETER/,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 


;CLEAR BIT 1 
:VERIFY THAT BIT 1 WAS CLEARED 
;sRESTORE BIT 1 
;VERIFY THAT BIT 1 WAS SET 
TS \XN,4000, 23 
T107: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
+ MOV #2$ ,ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
< <> 
MOV #,FREEZ1i ;SET UP TO LOOP WITH DATA ; 3 
.-ENDC 
XN=XNel1 
MOV #61T11,98D0HSCR sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #177765,R5 ;(R5)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 177765 
MOV #177767, (R3) ;SET ALL READ/WRITE BITS 
:IN LINE PARAMETER REGISTER 
BIC #2,CR3) ;CLEAR BIT 1 
MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
-TIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
pnd a ;WAS BIT 1 CLEARED 
-LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 





| 
| 


od 
STER ERROR 


ee 








CZDHA-D MACRO VO4.00 27-JUN-85 12:46:01 PAGE 17-54 


STER ERROR 


STER ERROR 
011326 
011332 


011334 
011340 
011342 


011346 
STER ERROR 
011346 


STER ERROR 


STER ERROR 
011350 


011352 


011352 
011352 
011360 
011366 


011374 
011402 
011406 


011412 


011416 
011422 


011424 

011426 

011430 
STER ERROR 
011430 


STER ERROR 


052713 000002 


011304 


022704 
001403 
012705 


104002 


104400 


000004 
000002 
177773 
177763 
177763 


012767 
012767 
012767 


000111 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104002 


177767 
177767 


177763 
177767 
000004 


166416 
006470 
006456 


006406 


ee SN HEPR OSDIR SSS 


.IIF ION <DHLPR>,<DHBCR>, 
-IIF ION <DHLPR>,<DHSSR>, 
1$: BIS #2,(CR3) 
MOV CR3),R4 
IIF NB <>, BIC #,R4 
CMP #177767,R4 
BEQ 2$ 
MOV #177767,R5 
-IIF ION <DHLPR>,<DHLPR>, 
EMT 2 
.IIF ION <DHLPR>,<DHBCR>, 
.IIF IDN <DHLPR>,<DHSSR>, 
2$: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1i 
-LIST 
.ENDC 
BITX=BITX+BITX 
BITC=BITC+1i 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE177767 
BITCLR=CLRBIT 
REGTS7 


sRESTORE BIT 2 
;VERIFY THAT BIT 2 WAS SET 
TS \XN,4000,2$% 
T110: MOV #340 PS 
MOV #4000, ICOUNT 
MOV $2%, ESCAPE 
IF NB <> 
MOV @,FREEZ1i 
-ENDC 
XN=XNel 
MOV @61IT11,98DHSCR 
MOV RRS 
MOV #177763,R5 
MOV $177767,(R3) 
BIC 04 ,CR3) 
MOV CR3),R4 
IIF NB <>, BIC &,R4 
CMP "ag 
IIF IDN <DHLPR>,<DHLPR>, 
EMT 2 
IIF ION <DHLPR>,<DHBCR>, 





SEQ 76 


;SET BIT 1 


HLT 3 ;LINE PARAMETER REGI 
HLT 4 ;LINE PARAMETER REGI 
;CLEAR UNWANTED BITS 

sWAS BIT 1 SET 

;(RS)=EXPECTED DATA IN 

;LINE PARAMETER REGISTER, 177767 

HLT 2 ;sLINE PARAMETER REGI 
HLT 3 sLINE PARAMETER REGI 
HLT 4 sLINE Ff YRAMETER REGI 


t/DHLPR/ ,\BITX,*/LINE PARAMETER/ ,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 


;CLEAR BIT 


2 
sVERIFY THAT BIT 2 WAS CLEARED 


sDISABLE ALL INTERRUPTS 
s;SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO LINE PARAMETER 
3CRS)=EXPECTED DATA 
sIN LINE PARAMETER REGISTER, 177763 
s;SET ALL READ/WRITE BITS 
:;IN LINE PARAMETER REGISTER 


sCLEAR BIT 2 


sGET CONTENTS OF LINE PARAMETER 
;CLEAR UNWANTED BITS 
sWAS BIT 2 CLEARED 


HLT 2 ;LINE PARAMETER REGI 


sLINE PARAMETER REGI 


HLT 3 
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SEQ 77 


021432 052713 000004 1$ BIS #4,(R3) ;SET BIT 2 
011436 011304 MOV (R3),R4 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
011440 022704 177767 CMP #177767,R4 ;WAS BIT 2 SET 
011444 001403 BEQ es 
011446 012705 177767 MOV #177767,R5 ;(RS)=EXPECTED DATA IN 
;LINE PARAMETER REGISTER, 177767 
011452 .IIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
011452 104002 EMT 2 
-ITIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
.IIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
STER ERROR 
011454 104400 2s: SCOPE 
-IF EQ BITX-4 
000010 BITX=BITX+BITX 
000003 BITC=BITC+1 
-ENOC 
000020 BITX=BITX+BITX 
000004 BITC=BITC+1 
177757 CCRBIT=-BITX-1 
177747 CLRBIT=CCRBITE177767 
177747 BITCLR=CLRBIT 
011456 REGTS? t/DHLPR/,\BITX,*t/LINE PARAMETER/ ,\BITC,177767,\BITCLR 
sLINE PARAMETER REGISTER DATA TEST 
foe eS cate BITS IN LINE PARAMETER REGISTER TO 1S 
; 
;VERIFY THAT a 4 WAS CLEARED 
sRESTORE BIT 4 
;VERIFY THAT BIT 4 WAS SET 
011456 TS \XN,4000,2$ 
011456 012767 000340 166312 Till: MOV $340 ,PS sDISABLE ALL INTERRUPTS 
011464 012767 004000 006364 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
011472 012767 011560 006352 oe MOV #23, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
» <> 
— MOV ¢,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000112 XN=XNe1 
011500 012777 004000 006302 MOV #61IT11,@DHSCR sMASTER CLEAR INTERFACE 
011506 016703 006302 MOV DHLPR RS ;SET UP POINTER TO LINE PARAMETER 
011512 012705 177747 MOV 0177747, R5 :(RS)*EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 177747 
011516 012713 177767 MOV #177767 ,CR3) ;SET ALL READ/WRITE BITS 
SIN LINE 9 gaealeaa REGISTER 
011522 042713 000020 BIC $20,(CR3) ;CLEAR BIT 
011526 011304 MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
IIF NB <>, Ic @,R4 ;CLEAR UNWANTED BITS 
011530 020504 ’ ;WAS BIT 4 CLEARED 
011532 001401 i$ 
011534 IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
011534 104002 2 
IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
STER ERROR 
IIF ION <DHLPR>,<DHSSR>, HLT a ;LINE PARAMETER REGI 
STEP ERROR 
011536 052713 000020 1$ BIS #20,(R3) sSET BIT 4 
011542 011304 MOV (R3),R4 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
011544 022704 177767 4177767 ,R4 ;WAS BIT 4 SET 





| eS RES AE SSS TERD NE SES EL SEEN EEE IETS STIS LOE PAA CELIO OLGA SS ARLE LALA LIED 
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011550 
011552 


011556 
STER ERROR 

011556 
STER ERROR 
STER ERROR 

011560 


011562 


011562 
011562 
011570 
011576 


001403 
012705 


104002 


104400 


000040 
000005 
177737 
177727 
177727 


012767 
012767 
012767 


000113 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
001403 
012705 


177767 


011664 


004000 
006176 
177727 


177767 
000040 


000040 


177767 
177767 


166206 


006260 
006246 


006176 


EMT 
-IIF ION 
-IIF ION 


BEQ 
MOV 


-IIF ION 


2s 
#177767,R5 
<DHLPR>,<DHLPR>, 


e 
<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>, 


2s: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+i 
LIST 


.ENODC 

BITX=BITX+BITX 
BITC=BITCe+1 
CCRBIT=-BITX-1 
araortemeeee ree 


t/DHLPR/ ,\BITX,*/LINE PARAMETER/ ,\BITC 177767, \BITCLR 


;sLINE PARAMETER REGISTER DATA TEST 
3;SET ALL = BITS IN LINE PARAMETER REGISTER TO 1S 


BITCLR=C 
REGTS7 


sCLEAR BIT 


sVERIFY THAT ow 5 WAS CLEARED 


;RESTORE BIT 
;VERIFY THAT BIT S WAS SET 
TS \XN,4000, 28 
Tii2: MOV #340 ,PS 
MOV #4000, ICOUNT 
MOV $23 , ESCAPE 
IF NB <> 
MOV @,FREEZi 
XN=XNeol 
MOV 6681711 ,8DHSCR 
MOV DHLPR,RS 
MOV 4177727 ,R5 
MOV 0177767, (R3) 
BIC #40,.(R3) 
MOV C3), 
LIF NB <>, @,R4 
R3, na 
IIF ION <DHLPR>, <DHLPR>, 
2 
IIF ION <DHLPR>, <DHBCR>, 
IIF ION <DHLPR>,<DHSSR>, 
1%: BIS 040,(R3) 
MOV on 
CMP 0177767,R4 
BEQ 
MOV 6177767,R5 





SEQ 78 


3(RS)*EXPECTED DATA IN 

;sLINE PARAMETER REGISTER, 177767 
HLT 2 sLINE PARAMETER REGI 
HLT 3 


HLT 4 


;sLINE PARAMETER REGI 
sLINE PARAMETER REGI 


sDISABLE ALL INTERRUPTS 
ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 





sMASTER pg INTERF ACE 

sSET UP POINTER TO LINE PARAMETER 
: (RS )*EXPECTED DATA 
LINE PARAMETER 





3;CLEAR 
3WAS BIT S CLEARED 


HLT 2 sLINE PARAMETER REGI 

HLT sLINE PARAMETER REGI 

HLT 4 sLINE PARAMETER REGI 

3SET BIT S 

areyee 
OS a 
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-IIF ION 





<DHLPR>,<DHLPR>, 





SEQ 79 


sLINE PARAMETER REGISTER, 177767 
HLT 2 


011662 .IIF ION <DHLPR>,<DHLPR>, Pp 
STER ERROR sLINE PARAMETER REGI 
011662 104002 _ -—" Can eel mnen 
. < >»,< R>, HLT 3 ; PA 
STER ERROR sniper —_ : LINE RAMETER REGI 
, <DHLPR>,<DHSSR>, HLT 4 P 
TER ERROR ;sLINE PARAMETER REGI 
011664 104400 23: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 
-ENDC 
030100 BITX=BITX+BITX 
000606 BITC*BITC+1 
177677 CCRBIT=-BITX-1 
177667 CLRBIT=CCRBITE177767 
177667 BITCLR=CLRBIT 
01166¢ REGTS7? t/DHLPR/,\BITX,*t/LINE PARAMETER/,\6ITC.177767,\BITCLR 
;sLINE PARAMETER REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 6 
;VERIFY THAT BIT 6 WAS CLEARED 
sRESTORE BIT € 
;sVERIFY THAT BIT 6 WAS SET 
011666 TS \XN,4000,2$ 
011666 012767 000340 166102 T1135: MOV #340 .PS ;DISABLE ALL INTERRUPTS 
011674 012767 9004000 006154 MOV $4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
011762 012767 011770 006142 — MOV $23 ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
nae MOV #,FREEZ1 :SET UP TO LOOP WITH DATA 3; § 
000114 XN=XNeol 
011710 012777 004000 006072 MOV #61T11.,8DHSCR ;MASTER CLEAR INTERFACE 
011716 016703 006072 MOV DHLPR,RS ;SET UP POINTER TO LINE PARAMETER 
011722 012705 177667 MOV #177667 ,R5 ;(RS)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 177667 
011726 012713 177767 MOV #177767, (R3) :SET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
011732 042713 000100 BIC #100,(CR3) ;CLEAR BIT 6 
011736 611304 MOV (R3),R4 ;GET CONTENTS OF LINE PARAMETER 
-ITIF NB <>, BIC o,R4 sCLEAR UNWANTED BITS 
011740 020504 CMP P ;WAS BIT 6 CLEAPED 
011742 001401 BEQ i$ 
011744 -LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
STER ERROR 
011744 104002 EMT 2 
-LIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER RESGI 
STER ERROR 
-LIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
STER ERROR 
011746 052713 000100 i$ BIS #100,(R3) ;SET BIT 6 
011752 011304 MOV (R3),R4 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
011754 022704 177767 CMP #177767,R4 ;WAS BIT 6 SET 
011760 001403 BEQ 2$ 
011762 012705 177767 MOV #177767,R5 3(RS)=EXPECTED DATA IN 


sLINE PARAMETER REGISTER, 177767 


HLT 2 ;LINE PARAMETER REGI 








| 
TRE. ene 


01 
STER ERROR 
01 


0120 
STER ERROR 
0120 


011766 
STER ERROR 
STER ERROR 


011770 


011772 


011772 
011772 
012000 
012006 


012014 
012022 
012026 


012032 


012036 
012042 


012044 
012046 
2050 


2050 


STER ERROR 
STER ERROR 


te ee eee 


104002 


104400 


000200 
000007 
177577 
177567 
177567 


012767 
012767 
012767 


000115 
012777 
016703 
012705 


012713 
042713 


011304 


020504 
001401 


104002 


052713 
011304 


022704 


001403 
012705 


104002 


000340 
004000 
012074 


004000 
665766 
177567 
177767 


000200 


000200 


177767 
177767 


165776 
006050 
006036 


005766 
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EMT 
TIF ION 
-ITIF IDN 


2s: 
-IF EQ 
-NLIST 





SEQ 80 


2 
<DHLPR>,<DHBCR>, 
<DHLPR>,<DHSSR>, 


ALT 3 
HLT 4 


sLINE PARAMETER REGI 


sLINE PARAMETER REGI 


SCOPE 
BITX-4 


BITX=BITX+BITX 
BITC=BITC+1 


.LIST 


NDC 
BITX=BITX+BITX 


BITC*BITC+1 
CCRBIT=-BITX-1 
CLRBIT =CCRBITE177767 
BITCLP=CLRBIT 


REGTS7 


+*/DHLPR/ ,.\BITX,*/LINE PARAMETER/ ,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 

sSET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
sCLEAR BIT 7 

sVERIFY THAT BIT 7 WAS CLEARED 

sRESTORE BIT 7 

sVERIFY THAT BIT 7 WAS SET 


TS \XN,4000,2$ 


T114: MOV #340,PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
7 MOV $23, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV ®,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
-ENOC 
XN=XNel 
MOV #61711 ,@DHSCR sMASTER CLEAR INTERFACE 
MOV DHLPR,RS ;SET UP POINTER TO LINE PARAMETER 
MOV #177567,R5 ;(RS)=EXPECTED DATA 
sIN LINE PARAMETER REGISTER, 177567 
MOV 0177767,(R3) sSET ALL READ/WRITE BITS 
sIN LINE PARAMETER REGISTER 
BIC #200, (R3) ;CLEAR BIT 7 
MOV CR3),R4 sGET CONTENTS OF LINE PARAMETER 
IIF NB <>, BIC @,R4 sCLEAR UNWANTED BITS 
“+ ;WAS BIT 7 CLEARED 
IIF ION <DHLPR>,<DHLPR>, HLT 2 :LINE PARAMETER REGI 
2 
IIF ION <DHLPR>,<DHBCR>, HLT ;LINE PARAMETER REGI 
IIF IDN <DHLPR>,<DHSSR>, HLT a ;LINE PARAMETER REGI 
1$: BIS #200 ,(R3) ;SET BIT 7 
MOV C(R3).R4 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
na + Aaa in sWAS BIT 7 SET 
MOV #177767,R5 :€RS5)*EXPECTED DATA IN 
;LINE PARAMETER REGISTER, 177767 
IIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
IIF ION <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 











eS meee 


hae - 


_—-_— ee 
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STER ERROR 
012074 


022076 


012076 
012076 
012104 
Ol2112 


012120 
012126 
012132 


012136 


012142 
012146 


012150 
012152 
012154 
STER ERROR 
012154 
STER ERROR 
STER ERROR 
012156 
012162 
012164 


012170 
012172 


012176 
STER ERROR 

012176 
STER ERROR 
STER ERROR 


104400 


000400 
000010 
177377 
177367 
177367 


012767 
012767 
012767 


000116 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 


001403 
012705 


104002 


000340 
004000 
012200 


004000 
005662 
177367 
177767 


000400 


000400 


177767 
177767 


165672 
005744 
005732 


005662 


-IIF IDN 


2s: SCOPE 
-IF EQ BITX-4 


-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 

-LIST 

.ENDC 

BITX=BITX+BITX 
BITC=BITC+1 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE177767 
BITCLR=CLRBIT 

REGTS7 


<DHLPR>,<DHSSR>, HLT 4 


SEQ 81 


sLINE PARAMETER REGI 


t/DHLPR/ ,\BITX,t/LINE PARAMETER/,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO iS 


;CLEAR BIT 10 


sVERIFY THAT BIT 10 WAS CLEARED 


sRESTORE BIT 10 


sVERIFY THAT BIT 10 WAS SET 


TS \XN,4000,2$ 
T115: MOV #340 ,PS 
MOV #4000, ICOUNT 
MOV #2$ ,ESCAPE 
.IF NB <> 
MOV #,FREEZ1 
-ENDC 


XN=XNe1 
MOV #61711 ,8DHSCR 
MOV DHLPR RS 
MOV #177367,R5 
MOV #177767,(R3) 


BIC #400, (R3) 


CMP oR4 
BEQ i$ 
IIF IDN <DHLPR>,<DHLPR>, 
EMT 2 
-1IF IDN <DHLPR>,<DHBCR>, 
-LIF IDN <DHLPR>,<DHSSR>, 
1$: BIS #400 ,CR3) 


IIF NB <>, BIC #,R4 
CMP #177767,R4 
BEQ 2$ 
MOV #177767,R5 
-1IF ION <DHLPR>,<DHLPR>, 
EMT 2 
IIF ION <DHLPR>,<DHBCR>, 
-1IF ION <DHLPR>,<DHSSR>, 


mn al a 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 


Ww 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO LINE PARAMETER 
;C(RS5)=EXPECTED DATA 
3IN LINE PARAMETER “EGISTER, 177367 
;SET ALL READ/WRITE BITS 
sIN LINE PARAMETER REGISTER 
;CLEAR BIT 10 
;GET CONTENTS OF LINE PARAMETER 
;CLEAR UNWANTED BITS 
;WAS BIT 10 CLEARED 


HLT 2 sLINE PARAMETER REGI 
HLT 3 sLINE PARAMETER REGI 
HLT 4 ;LINE PARAMETER REGI 
;SET BIT 10 


;CLEAR UNWANTED BITS 
sWAS BIT 10 SET 


;(RS5)=EXPECTED DATA IN 
sLINE PARAMETER REGISTER, 177767 


HLT 2 ;LINE PARAMETER REGI 
HLT 3 ;LINE PARAMETER REGI 
HLT 4 ;LINE PARAMETER REGI 





aye. aaa 


Rl ae 


EEE Ee eae ee ee ee Was 
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012202 


012202 
012202 
012210 
012216 


012224 
012232 
012236 


012242 


012246 
012252 


012254 
012256 
012260 


STER ERROR 


012260 


STER ERROR 
STER ERROR 


012262 
012266 


012270 
012274 
012276 


012302 


STER ERROR 


012302 


STER ERROR 
STER ERROR 


012304 


001000 
000011 
176777 
176767 
176767 


012767 
012767 
012767 


000117 
012777 
016703 
012705 
012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
001403 
012705 


104002 


104400 


000340 
004000 
012704 


004000 
005556 
176767 
177767 


001000 


001900 


177767 
177767 





005556 


17-60 


-IF EQ BITX-4 
NLIST 


BITX=B 
BITC=B 
.LIST 

-ENDC 

BITX=B 
BITC=B 
CCRBIT 
CLRBIT 
BITCLR 
REGTS? 


ITX+BITX 
ITC+1 


ITX+BITX 

ITC+1 

=-BITX-1 
=CCRBITE177767 
=CLRBIT 


SEQ 82 


t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO iS 


;CLEAR BIT 11 


;VERIFY THAT BIT 11 WAS CLEARED 


sRESTORE BIT 11 


;VERIFY THAT BIT 11 WAS SET 
TS \XN,4000,2$ 


T116: | MOV #340,PS 
MOV #4000, ICOUNT 
MOV 82%, ESCAPE 
.IF NB <> 
MOV @,FREEZ1 
ENOC 
XN=XNel 
MOV @B1T11,@DHSCR 
MOV DHLPR,R3 
MOV #176767,R5 
MOV #177767. (R3) 
BIC #1000, (R3) 
MOV (R3),R4 
IIF NB <>, BIC @.R4 
CMP RS.R4 
BEQ 13 
LIF ION <DHLPR>, <DHLPR>, 
EMT 2 
LIIF IDN <DHLPR>, <DHBCR>, 
IIF IDN <DHLPR>, <DHSSR>, 
1$: BIS #1000, (R3) 
MOV (R3),R4 
IIF NB <>, BIC ®,R4 
CMP #177767,R4 
BEQ 2$ 
MOV #177767,RS 
IIF ION <DHLPR>, <DHLPR>, 
EMT 2 
IIF ION <DHLPR>, <DHBCR>, 
IIF ION <DHLPR>, <DHSSR>, 
2$: SCOPE 


IF EQ BITX-4 


»~NLIST 





sDISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO LINE PARAMETER 
s(RS)=EXPECTED DATA 
sIN LINE PARAMETER REGISTER, 176767 
sSET ALL READ/WRITE BITS 
sIN LINE PARAMETER REGISTER 
sCLEAR BIT 11 
s;GET CONTENTS OF LINE PARAMETER 
;CLEAR UNWANTED BITS 
sWAS BIT 11 CLEARED 


HLT 2 sLINE PARAMETER REGI 
HLT sLINE PARAMETER REGI 
HLT 4 sLINE PARAMETER REGI 
sSET BIT 11 


;CLEAR UNWANTED BITS 
sWAS BIT 11 SET 


3CRS)=*EXPECTED DATA IN 
sLINE PARAMETER REGISTER, 177767 


HLT 2 ;LINE PARAMETER REGI 
HLT ;LINE PARAMETER REGI 
HLT 4 ;LINE PARAMETER REGI 








~ — -_--- 
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SEQ 83 





BITX=BITX+BITX 
BITC=BITC+1 
LIST 
.ENDC 
002000 BITX=BITX+BITX 
000012 BITC=BITC+1 
175777 CCRBIT=-BITX-1 
175767 CLRBIT=CCRBITE177767 
175767 BITCLR=CLRBIT 
012306 REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC,177767,\BITCLR 
;LINE PARAMETER REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 12 
sVERIFY THAT BIT 12 WAS CLEARED 
sRESTORE BIT 12 
;VERIFY THAT BIT 12 WAS SET 
012306 TS \XN,4000,2$ 
012306 012767 000340 165462 T1117: MOV #340 ,PS s;DISABLE ALL INTERRUPTS 
012314 012767 004000 0055<" MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
012322 012767 012410 005522 — MOV $2$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
one MOV #,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
000120 XN=XNe1 
012330 012777 004000 005452 MOV #81IT11.,@D0HSCR sMASTER CLEAR INTERFACE 
012336 016703 005452 MOV DHLPR,RS s;SET UP POINTER TO LINE PARAMETER 
012342 012705 175767 MOV #175767,R5S ;(RS)=EXPECTED DATA 
3;IN LINE PARAMETER REGISTER, 175767 
012346 012713 177767 MOV #177767, (R3) sSET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
012352 042713 002000 BIC »CR3) sCLEAR BIT 12 
012356 011304 MOV CR3),R4 s;GET CONTENTS OF LINE PARAMETER 
TIF NB <>, BIC @.R4 s;CLEAR UNWANTED BITS 
012360 020504 RS,R4 sWAS BIT 12 CLEARED 
012362 001401 is 
012364 -IIF ION <DHLPR>,<DHLPR>, HLT 2 sl.INE PARAMETER REGI 
STER ERROR 
012364 104002 T 2 
IIF ION <DHLPR>, <DHBCR>, HLT sLINE PARAMETER REGI 
STER ERROR 
-IIF IDN <DHLPR>,<DHSSR>, HLT sLINE PARAMETER REGI 
STER ERROR 
012366 052713 002000 1$: BIS #2000, (R3) ;SET BIT i2 
012372 011304 MOV CRS) ,R4 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
012374 022704 177767 CMP 9177767 ,R4 sWAS BIT 12 SET 
012400 001403 BEQ 23 
012402 012705 177767 MOV #177767,R5 ;(RS)=EXPECTED DATA IN 
sLINE PARAMETER REGISTER, 177767 
012406 IIF IDN <DHLPR>, <DHLPR>, HLT 2 
STER ERROR 
012406 104002 2 
IIF ION <DHLPR>,<DHBCR>, HLT 
STER ERROR 
IIF ION <DHLPR>,<DHSSR>, HLT 
STER ERROR 
012410 104400 23: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BT TC=BITC+1 
oe ES TD 


01 
STER ERROR 
01 


012512 
STER ERROR 
012 


— = 


012412 


012412 
012412 
012420 
012426 


012434 
012442 
012446 


012452 


012456 
012462 


012464 
012466 
2470 


2470 


STER ERROR 
STER ERROR 


012472 
012476 


012500 


012504 
012506 


S12 


STER ERROR 
STER ERROR 


012514 


004000 
000013 
173777 
173° 57 
173767 


012767 
012767 
012767 


000121 
012777 
016703 
012705 
012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
001403 
012705 


104002 


104400 


000340 
004000 
012514 


004000 
005346 
173767 
177767 


004000 


004000 


177767 
177767 


165356 
0 


005346 





eee er eon ee ee eee 
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-ENOC 

BITX=BITX+BITX 

BITC=BITC+1 

CCRBIT=-BITX-1 

CLRBIT=CCRBITE177767 

BITCLR=CLRBIT 

REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 

s;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 13 

;VERIFY THAT BIT 13 WAS CLEARED 

sRESTORE BIT 13 

;VERIFY THAT BIT 13 WAS SET 


TS \XN,4000,2$ 
MOV 





















T7120: #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
, <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNelL 
MOV #BIT11,8DHSCR sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #173767,R5 ;(R5)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 173767 
MOV #177767, CR3) ;SET ALL READ/WRITE BITS 
3IN LINE PARAMETER REGISTER 
BIC #4000, (R3) ;CLEAR BIT 13 
MOV CR3).R4 ;GET CONTENTS OF LINE PARAMETER 
-LTIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
ited . :WAS BIT 13 CLEARED 
-I1IF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE Ff \RAMETER REGI 
EMT 2 
-IIF IDN <DHLPR>, <DHBCR>, HLT ;LINE PARAMETER REGI 
-LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
is: BIS #4000, (R3) ;SET BIT 13 
MOV CR3),.R4 
-ITIF NB <>, sICc #,R4 ;CLEAR UNWANTED BITS 
foi ahaa ;WAS BIT 13 SET 
MOV #177767,R5 ;(RS)=EXPECTED DATA IN 
;LINE PARAMETER REGISTER, 177767 
-LIF IDN <DHLPR>,<DHLPR>, FLT 2 ;LINE PARAMETER REGI 
EMT 2 
-IIF ION <DHLPR>,<DHBCR>, ALT ;LINE PARAMETER REGI 
-1IF ION <DHLPR>,<DHSSR>, HLT ;LINE PARAMETER REGI 
2$: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 


-ENDC 


STER see 


STER ERROR 
01 


012516 


012516 
012516 
012524 
012532 


012540 
012546 
012552 


012556 


012562 
012566 


012570 
012572 
012574 


12574 


STER ERROR 
STER ERROR 


012576 
012602 


012604 
012610 
012612 
012616 


2616 


STER ERROR 
STER ERROR 


012620 


010000 
000014 
167777 
167767 
167767 


012767 
012767 
012767 


090122 
012777 
016703 
012705 
012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
001403 
012705 


104002 


104400 


000340 
004000 
012620 


004000 
005242 
167767 
177767 


010000 


010000 


177767 
177767 





165252 
005324 
005312 


005242 
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BITX=BITX+BITX 

BITC=BITC+1 

CCRBIT=-BITX-1 

CLRBIT=CCRBITE177767 

BITCLR=CLRBIT 

REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/ ,\BITC,177767,\BITCLR 


;LINE PARAMETER REGISTER DATA TEST 

s;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 14 

;VERIFY THAT BIT 14 WAS CLEARED 

sRESTORE BIT 14 

;VERIFY THAT BIT 14 WAS SET 


TS \XN,4000,2$ 
Ti21: MOV #340,PS 


MOV #4000, ICOUNT 


sDISABLE ALL INTERRUPTS 
s;SET UP FOR 4000 ITERATIONS 


or te MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
F <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel 
MOV #BIT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #167767,R5 ;(R5)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 167767 
MOV #177767, (CR3) ;SET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
BIC #10000, (R3) ;CLEAR BIT 14 
MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
a ests ;WAS BIT 14 CLEARED 
.LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
.LIF IDN <DHLPR>,<DHBCR>, HLT ;LINE PARAMETER REGI 
-LIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
i$: BIS #10000 ,(R3) ;SET BIT 14 
MOV CR3),R4 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
a. ~ ideas ;WAS BIT 14 SET 
MOV ~ #177767,R5 ;(R5S)=EXPECTED DATA IN 
;sLINE PARAMETER REGISTER, 177767 
-LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
-LIF IDN <DHLPR>,<DHBCR>, HLT 3 ;sLINE PARAMETER REGI 
-IIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
2$: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
-ENDC 
BITX=BITX+BITX 
BITC=BITC+1 





= 


0 
STER ERROR 
012700 


012 
STER ERROR 


012622 


012622 
012622 
012630 
012636 


012644 
012652 
012656 


012662 


012666 
012672 


012674 
012676 
12700 


STER ERROR 
STER ERROR 


012702 
012706 


012710 
012714 
012716 
722 


012722 


STER ERROR 
STER ERROR 
012 


724 


157777 
157767 
157767 


012767 
012767 
012767 


000123 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
091403 
012705 


104002 


104400 


040000 
000016 
137777 
137767 


6 ee eee 


000340 
004000 
012724 


004000 
005136 
157767 
177767 


020000 


020000 


177767 
177767 


165146 
005220 
005206 


005136 


SEQ 86 
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CCRBIT=-BITX-1 
CLRBIT =CCRBITE177767 
BITCLR=CLRBIT 


REGTS7 


TS \XN,4000,2$ 
MOV 


T122: 


+t/DHLPR/ ,\BITX,t/LINE PARAMETER/ ,\BITC,177767,\BITCLR 


sLINE PARAMETER REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 15 

;VERIFY THAT BIT 15 WAS CLEARED 

sRESTORE BIT 15 

;VERIFY THAT BIT 15 WAS SET 


#340 ,PS 
MOV #4000, ICOUNT 
MOV #2$, ESCAPE 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


.1F NB <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNe1 
MOV #BIT11,9DHSCR ;MASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #157767,R5 ;(R5)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 157767 
MOV #177767,(R3) ;SET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
BIC #20000 , (R3) ;CLEAR BIT 15 
MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
.LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
ya on ;WAS BIT 15 CLEARED 
-LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
-LIF IDN <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
-LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
1$: BIS #20000 , (R3) ;SET BIT 15 
MOV CR3),R4 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
CMP #177767 ,R4 ;WAS BIT 15 SET 
BEQ 2$ 
MOV #177767,R5 ;(R5)=EXPECTED DATA IN 
;LINE PARAMETER REGISTER, 177767 
.LIF ION <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
.LIF IDN <DHLPR>,<DHBCR>, HLT ;LINE PARAMETER REGI 
-LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
2s: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
-LIST 
-ENDC 
BITX=BITX+BITX 
BITC=BITC+1i 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE177767 


RR RENEE SEES AER AR A A ERO a 
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01 
STER ERROR 


012726 


012726 
012726 
012734 
012742 


012750 
012756 
012762 


012766 


012772 
012776 


013000 
013002 
3004 


013004 


STER ERROR 
STER ERROR 


013 
STER ERROR 


013006 
013012 


013014 
013020 
013022 
026 


013026 


STER ERROR 


STER ERROR 
013 


030 


013032 


137767 


012767 
012767 
012767 


000124 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
001403 
012705 


104002 


104400 


100000 
000017 
077777 
077767 
077767 


000340 
004000 
013020 


004000 
005032 
137767 
177767 


040000 


040000 


177767 
177767 





165042 
005114 
005102 


005032 





BITCLR=CLRBIT 
REGTS7 t/DHLPR/,\BITX,t/LINE PARAMETER/,\BITC,177767,\BITCLR 


;LINE PARAMETER REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 16 

;VERIFY THAT BIT 16 WAS CLEARED 

sRESTORE BIT 16 

;VERIFY THAT BIT 16 WAS SET 


TS \XN,4000,2$ 


T7123: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 5 § 
.ENDC 
XN=XNe1 
MOV #BIT11,@DHSCR ;sMASTER CLEAR INTERFACE 
MOV DHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #137767,R5 ;(R5S)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 137767 
MOV #177767, CR3) ;SET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
BIC #40000 , C(R3) ;CLEAR BIT 16 
MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
oa + ame ;WAS BIT 16 CLEARED 
-LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
-LIF IDN <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
-LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
i$: BIS #40000 , (R3) ;SET BIT 16 
MOV CR3),R4 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
ped lt a ;WAS BIT 16 SET 
MOV #177767,R5 ;(RS)=EXPECTED DATA IN 
;LINE PARAMETER REGISTER, 177767 
-IIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
.LIF IDN <DHLPR>,<DHBCR>, HLT ;LINE PARAMETER REGI 
.LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
2$: SCOPE 
-IF EQ BITX-4 
-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 
.ENDC 
BITX=BITX+BITX 
BITC=BITC+1 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE177767 
BITCLR=CLRBIT 
REGTS7 t/DHLPR/,\BITX,*/LINE PARAMETER/,\B8ITC,177767,\BITCLR 
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013032 
013032 
013040 
013046 


013054 
013062 
013066 
013072 


013076 
013102 


013104 
013106 


013110 
STER ERROR 
013110 


STER ERROR 
STER ERROR 
013112 
013116 
013120 
013124 
013126 
013132 
STER ERROR 
013132 
STER ERROR 


STER ERROR 
013134 


012767 
012767 
012767 


000125 
012777 
016703 
012705 
012713 


042713 
011304 


020504 
001401 


104002 


052713 
011304 


022704 
001403 
012705 


104002 


104400 


000340 
004000 
013134 


004000 
004726 
077767 
177767 


100000 


100000 


177767 
177767 





164736 
005010 
004776 


004726 





;LINE PARAMETER REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN LINE PARAMETER REGISTER TO 1S 
;CLEAR BIT 17 

;VERIFY THAT BIT 17 WAS CLEARED 

sRESTORE BIT 17 

;VERIFY THAT BIT 17 WAS SET 


TS \XN,4000,2$ 


T7124: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
-_— MOV #2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
2 <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #BIT11,8DHSCR ;MASTER CLEAR INTERFACE 
MOV CHLPR,R3 ;SET UP POINTER TO LINE PARAMETER 
MOV #77767,R5 ;(RS)=EXPECTED DATA 
;IN LINE PARAMETER REGISTER, 77767 
MOV #177767,CR3) ;SET ALL READ/WRITE BITS 
;IN LINE PARAMETER REGISTER 
BIC #100000, (R3) ;CLEAR BIT 17 
MOV CR3),R4 ;GET CONTENTS OF LINE PARAMETER 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
au + a ;WAS BIT 17 CLEARED 
1 
.LIF IDN <DHLPR>,<DHLPR>, HLT 2 ;LINE PARAMETER REGI 
EMT 2 
.LIF IDN <DHLPR>,<DHBCR>, HLT 3 ;LINE PARAMETER REGI 
-LIF ION <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
1$: BIS #100000, (R3) ;SET BIT 17 
MOV CR3),R4 
.LIF NB <>, BIC #,R4 ;CLEAP UNWANTED BITS 
a lta ;WAS BIT 17 SET 
$ 
MOV #177767,R5 ;(RS)=EXPECTED DATA IN 
sLINE PARAMETER REGISTER, 177767 
.1IF IDN <DHLPR>,<DHLPR>, HLT 2 ;sLINE PARAMETER REGI 
EMT 2 
-1IF ION <DHLPR>,<DHBCR>, HLT ;sLINE PARAMETER REGI 
.LIF IDN <DHLPR>,<DHSSR>, HLT 4 ;LINE PARAMETER REGI 
2s: SCOPE 
-IF EQ BITX-4 
»NLIST 
BITX=BITX+BITX 
BITC=BITC+1 
LIST 
.ENDC 
BITX=BITX+BITX 
BITC=BITC+1 
XBIT=BITX 
CBIT=BITC 
BITX=1 
BITC=0 
REPT 16. 
-NLIST 





- —_— 


— a 





oe ee ee 
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TER _— 


013136 


013136 
013136 
013144 
013152 


013160 
013166 
013172 
013176 


013202 
013206 


013210 
013212 


3214 


TER ERROR 


013214 


TER ERROR 


013216 
013222 


013224 
013230 
013232 


TER ERROR 
013236 

TER ERROR 
013236 


TER ERROR 


| 
be 


013240 


177776 
177776 


012767 
012767 
012767 


000126 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 
052713 
011304 
022704 


001403 
012705 


104003 


000340 
004000 
013240 


177776 
177777 
000001 


000001 


177777 
177777 





164632 
004704 
004672 


004622 





CLRBIT=-BITX-1 
BITCLR=CLRBIT 


-LIST 
REGTS7 
NLIST 


t/DHBCR/ ,\BITX,*/BREAK CONTROL/,\BITC,177777,\BITCLR 


BITX=BITX+BITX 
BITC=BITC+1 


-LIST 
-ENDR 


CLRBIT=-BITX-1 
BITCLR=CLRBIT 


REGTS7 


t/DHBCR/ ,\BITX,+t/BREAK CONTROL/,\BITC,177777,\BITCLR 


sBREAK CONTROL REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 0 

;VERIFY THAT BIT O WAS CLEARED 

sRESTORE BIT 0 

;VERIFY THAT BIT O WAS SET 


TS \XN,4000,2$ 
T125: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNe1 
MOV #B8IT11,8DHSCR sMASTER CLEAR INTERFACE 
MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #177776,R5 ;(R5)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 177776 
MOV #177777,CR3) ;SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
BIC #1,(CR3) ;CLEAR BIT O 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
reg ;WAS BIT 0 CLEARED 
IIF ION <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
IIF IDN <DHBCR>,.<DHSSR>, HLT 4 ;BREAK CONTROL REG15 
1$: BIS #1,(R3) ;SET BIT 0 
MOV CR3),R4 
.IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
ite aoe sWAS BIT O SET 
MOV $177777,R5 :(RS)=EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
2$: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
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013242 


013242 
013242 
013250 
013256 


013264 
013272 
013276 


013302 


013306 
013312 


013314 
013316 


TER ERROR 
013320 

TER ERROR 
013320 


TER ERROR 
013322 
013326 


013330 
013334 
013336 


TER ERROR 
13342 

TER ERROR 
013342 


TER ERROR 
013344 


013346 


his nv -ncetineiiesc oes siocnic wMEGee co 


177775 
177775 


012767 
012767 
012767 


000127 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


2 
177773 
177773 


000340 
004000 
013344 


004000 
004526 
177775 
177777 


000002 


000002 


177777 
177777 


164526 
004600 
004566 


004516 


CLRBIT=-BITX-1 
BITCLR=CLRBIT 


REGTS7 


SEQ 90 


TS \XN,4000,2$ 


+/DHBCR/ ,\BITX,*/BREAK CONTROL/,\BITC,177777,\BITCLR 


sBREAK CONTROL REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 1 
;VERIFY THAT BIT 1 WAS CLEARED 
sRESTORE BIT 1 
;VERIFY THAT BIT 1 WAS SET 


T7126: MOV #340,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
me MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNel 
MOV v8IT11,8DHSCR ;sMASTER CLEAR INTERFACE 
MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #177775,R5 ;(RS)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 177775 
MOV #177777, (R3) ;SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
BIC #2,(R3) ;CLEAR BIT 1 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
ond “io ;WAS BIT 1 CLEARED 
.IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
.IIF ION <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
‘EMT 3 
.IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
1$: BIS #2,(R3) ;SET BIT 1 
MOV CR3),.R4 
-IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
om Gal ;WAS BIT 1 SET 
MOV #177777,R5 :(R5)*EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
.IIF IDN <DHBCR>.<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
.IIF ION <DHBCR>, <DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
.IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
2s: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
CLRBIT=-BITX-1 
BITCLR=CLRBIT 
REGTS7 *t/DHBCR/,\BITX,*+/BREAK CONTROL/, \BITC, 177777, \BITCLR 


s;BREAK CONTROL REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;sCLEAR BIT 2 


sVERIFY THAT BIT 2 WAS CLEARED 


sRESTORE BIT 2 








eee 
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;VERIFY THAT BIT 2 WAS SET 





SEQ 91 





013346 TS \XN,4000,2$ 
013346 012767 000340 164422 1127: MOV #340,PS ;DISABLE ALL INTERRUPTS 
013354 012767 004000 004474 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
013362 012767 013450 004462 om MOV @2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
P <> 
— MOV ¢,FREEZ1 ;SET UP TO LOOP WITH DATA 5 & 
000130 XN=XNe1 
013370 012777 004000 004412 MOV #6IT11,@DHSCR sMASTER CLEAR INTERFACE 
013376 016703 004422 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
013402 012705 177773 MOV 177773,R5 ;CRS)*EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 177773 
013406 012713 177777 MOV #177777, CR3) ;SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
013412 042713 000004 BIC 04,CR3) ;CLEAR BIT 2 
013416 011304 MOV CR3),R4 s;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
013420 020504 R5,R4 ;WAS BIT 2 CLEARED 
013422 001401 1$ 
IIF IDN <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
01 IIF IDN <DHBCR>, <DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
013424 104003 EMT 3 
—on IIF ION <DHBCR>,<DHSSR>, HLT % sBREAK CONTROL REGIS 
013426 052713 000004 18: BIS 04,(CR3) ;SET BIT 2 
013432 011304 MOV CR3),R 
IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
013434 022704 177777 CMP 0177777 ,R4 sWAS BIT 2 SET 
013440 001403 BEQ es 
013442 012705 177777 MOV 0177777,R5 s(R5)=EXPECTED DATA IN 
sBREAK CONTROL REGISTER, 177777 
—— IIF ION <DHBCR>,<DHLPR>, HLT e ;BREAK CONTROL REGIS 
TE 
46 -IIF ION <DHBCR>, <DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
3446 104003 EMT 3 
-IIF ION <DHBCR>,<DHSSR>, HLT a ;BREAK CONTROL REGIS 
TER ERROR 
3450 104400 $: 
000010 BITX=BITX+BITX 
00000 BITC=BITC+1 
177767 CLRBIT=-BITX-1 
177767 BITCLR-CLRBIT 
013452 7 */DHMBCR/,\BITX,*/BREAK CONTROL/, \BITC.177777,\BITCLR 
s;BREAK CONTROL REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 3 
sVERIFY THAT BIT 3 WAS CLEARED 
sRESTORE BIT 
sVERIFY THAT BIT 3 WAS SET 
013452 TS \XN,4000,28 
013452 012767 000340 164316 1130: MOV @340,PS sDISABLE ALL INTERRUPTS 
0135460 012767 004000 004370 #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
013466 012767 013554 004356 ~— MOV 2%, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
i <> 
ome MOV @, FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 








—————— ee ea Se 
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SEQ 92 











000131 XN=XNel 
013474 012777 004000 004306 MOV #61T11,8DHSCR sMASTER CLEAR INTERFACE 
013502 016703 004316 MOV DHBCR,R3S ;SET UP POINTER TO BREAK CONTROL 
013506 012705 177767 MOV 177767,R5 :(RS)=EXPECTED DATA 
: sIN BREAK CONTROL REGISTER, 177767 
013512 012713 177777 MOV 177777, CR3) ;SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
013516 042713 000010 BIC #10,(R3) ;CLEAR BIT 3 
015522 011304 MOV (R3),R4 ;GET CONTENTS OF BREAK CONTROL 
-IIF NB <>, BIC &,R4 ;CLEAR UNWANTED BITS 
013524 020504 CMP R5 ,R4 ;WAS BIT 3 CLEARED 
013526 001401 _ —" nere — . 
< >, <DHLPR>, HL 2 AK 
TER ERROR ti wiper —_ ;BREAK CONTROL REGIS 
pI ° < >, <DHBCR>, HLT BREAK TROL R 
TER ERROR. ; CONTROL REGIS 
013530 104003 _— “—" _ an wane , 
. < >, <DH >, HL 4 BREAK TROL R 
TER ERROR ; CONTROL REGIS 
013532 052713 000010 1$: BIS #10,(R3) ;SET BIT 3 
013536 011304 MOV CR3),R4 
-IIF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
013540 022704 177777 CMP 177777,R4 ;WAS BIT 3 SET 
013544 001403 BEQ 2s 
013546 012705 177777 MOV €177777,R5 :;CRS)=EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
-IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
TER ERROR 
O1 -IIF IDN <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
013552 104003 EMT 3 
-ITIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
0135 104400 2$: SCOPE 
000020 BITX=BITX+BITX 
000004 BITC=BITC+1 
177757 CLRBIT=-BITX-1 
177757 BITCLR=CLRBIT 
013556 REG1S? ‘*t/DHBCR/,\BITX,.*/BREAK CONTROL/,\BITC,177777.\BITCLR 
;BREAK CONTROL REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
sCLEAR BIT 4 
;VERIFY THAT BIT 4 WAS CLEARED 
sRESTORE BIT 4 
;VERIFY THAT BIT 4 WAS SET 
013556 TS \XN,4000, 2$ 
013556 012767 000340 164212 T1131: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
013564 912767 004000 004264 MOV #4000, ICOUNT :SET UP FOR 4000 ITERATIONS 
013572 v1i2767 012660 004252 a MOV @2$ ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
se MOV ¢,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000132 XN=XNel1 
013600 012777 004000 004202 MOV #61T11,@DHSCR :MASTER CLEAR INTERFACE 
013606 016703 004212 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
013612 012705 177757 MOV #177757,R5 ;°RS)=*EXPECTED DATA 
:IN BREAK CONTROL REGISTER, 177757 
013616 012713 177777 MOV #177777, CR3) ;SET ALL READ/WRITE BITS 
:IN BREAK CONTROL REGISTER 
013622 042713 000020 BIC #20,(R3) ;CLEAR BIT 4 
013626 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
e— cece ee Re C5 FS NR RRR RRR 


EE 


Ne SSS. 
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013630 
013632 


TER ERROR 


013634 
TER ERROR 
0136 


TER ERROR 
0 


TER ERROR 
013656 

TER ERROR 
013656 


TER ERROR 
013660 


013662 


013662 
013662 
013670 
013676 


013704 
013712 
013716 
013722 


013726 
013732 


013734 
013736 


TER ERROR 


020504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


104003 


177737 
177737 


012767 
012767 
012767 


000133 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 


000020 


177777 
177777 


000340 
004000 
01376. 


004900 
004106 
177737 
177777 


000040 


013742 052713 000040 


013746 


611304 


004076 


-IIF NB <>, 
C 


.IIF 
. TIF 


. TIF 
1$: BIS 
. TIF 


. TIF 
. TIF 


TIF 
2s: 
BITC=BITC+1 


CLRBIT=-BITX-1 


BITCLR=CLRBIT 
REGTS7 


SCOPE 
BITX=BITX+BITX 


BIC 
RS ,.R4 


#,R4 


i$ 
<DHBCR>,<DHLPR>, 
<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


#20, (R3) 
C(R3),R4 
@,R4 


BIC 
#177777,R4 
23 
0177777,R5 


<DHBCR>,<DHLPR>, 
<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


et reecsscane 





SEQ 93 


;CLEAR UNWANTED BITS 
;WAS BIT 4 CLEARED 


HLT 2 ;BREAK CONTROL REGIS 
HLT 3 ;BREAK CONTROL REGIS 
HLT 4 ;BREAK CONTROL REGIS 
;SET BIT 4 


sCLEAR UNWANTED BITS 
;WAS BIT 4 SET 


s(RS)*EXPECTED DATA IN 
sBREAK CONTROL REGISTER, 177777 
HLT 2 sBREAK CONTROL REGIS 


HLT 3 sBREAK CONTROL REGIS 


HLT 4 sBREAK CONTROL REGIS 


t/DHBCR/ ,\BITX,*/BREAK CONTROL/, \BITC,177777,\8ITCLR 


;BREAK CONTROL REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 5 

;VERIFY THAT BIT S WAS CLEARED 
;RESTORE BIT 5 


sVERIFY THAT BIT 5 WAS SET 


TS \XN,4000,2$ 
Ti132: 


-IF NB <> 


-ENOC 
XN=XNel 


BIS 
MOV 


a 
#177737 ,RS 
9177777, (R3) 


is 
<DHBCR>,<DHLPR>, 
<DHBCR>,<OHBCR>, 


3 
<DHBCR>,<DHSSR>, 


#40,(R3) 
CR3),R4 





sDISABLE ALL INTERRUPTS 
s;SET UP FOR 4000 ITERATIONS 
s;SET UP TO ESCAPE TO NEXT TEST 


3;SET UP TO LOOP WITH DATA 


oe 
WN 


MASTER CLEAR INTERFACE 

;SET UP POINTER TO BREAK CONTROL 
: (RS )=EXPECTED DATA 
ROL “yn a 177737 


SCLEAR BIT 

4GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 

:WAS BIT 5 CLEARED 





HLT 2 ;BREAK CONTROL REGIS 
HLT ;BREAK CONTROL REGIS 
HLT 4 ;BREAK CONTROL REGIS 
sSET BIT S 


SEQ 94 
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TER ERROR 
O1 
TER ERROR 


TER ERROR 
0: 


013750 
013754 
013756 


762 
013762 


13764 


013766 


013766 
013766 
013774 
014062 


014010 
014016 
014022 


014026 


014032 
014036 


014040 
014042 


TER eu 
TER ERROR 


014044 


TER ERROR 


TER salar * 


Up ae 


1 
TER ERROR 
oo EEE EE 


TER ERROR 


022704 
001403 
012705 


104003 


177677 


012767 
012767 
012767 


000134 
012777 
016703 
012705 


012713 


042713 
011304 


920504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


177777 
177777 


.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
id #177777,R4 ;WAS BIT 5 SET 


es 
MOV #177777,R5 ;(R5)=EXPECTED DATA IN 


sBREAK CONTROL REGISTER, 177777 
.IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
.IIF ION <DHBCR>, <DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
.IIF ION <DHBCR>,<DHSSR>, HLT 4 sBREAK CONTROL REGIS 
23: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
CLRBIT=-BITX-1 
BITCLR=CLRBIT 
REGTS? t/DHBCR/,\BITX,*/BREAK CONTROL/,\BITC,177777,\BITCLR 


s;BREAK CONTROL REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 6 

sVERIFY THAT BIT 6 WAS CLEARED 

sRESTORE BIT 6 


000340 164002 
004000 004054 
614070 004042 


004000 003772 
004002 
177677 
177777 
000100 


000100 


177777 
177777 


;VERIFY THAT BIT 6 WAS SET 


TS \XN,4000,2$ 





T133: | MOV 2340,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
as MOY 23, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
es MOV ®,FREEZ1 ;SET UP TO LOOP WITH DATA 3 
XN=XNel 
MOV #681711 ,.S8DHSCR sMASTER CLEAR INTERF 
MOV : ;SET UP POINTER TO BREAK CONTROL 
MOV #177677,R5 ;(R5)=-EXPECTED DATA 
3IN BREAK CONTROL REGISTER, 177677 
MOV #177777,CR3) 3SET ALL READ/WRITE BI 
:IN BREAK CONTROL REGISTER 
BIC #100,(R3) ,; CLEAR BIT 6 
MOV CR3),R4 :GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC &,R4 BITS 
A or tia ;WAS BIT 6 CLEARED 
IIF ION <DHBCR>, <DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF ION <DHBCR>, <DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
IIF ION <DHBCR>, <DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
1$ BIS #100,(R3) ;SET BIT 6 
MOV CR3),R4 
IIF NB <>, sic #,R4 ;CLEAR UNWANTED BITS 
CHP 217777,R4 ;WAS BIT 6 SET 
MOV $177777,R5 ;CRS)*EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
IIF ION <DHBCR>, <DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF IDN <OHBCR>, <DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
LIF IDN <DHBCR>, <DHSSR>, HLT 4 ;BREAK CONTROL REGIS 


014070 


014072 


014072 
014072 
014100 
014106 


014114 
014122 
014126 


014132 


014136 
014142 


014144 
014146 


TER ve 
TER ERROR 
01 


4150 


TER ERROR 


014152 
014156 


014160 
014164 
014166 


TER ERROR 


014172 


TER ERROR 


014172 


TER ERROR 


014174 


014176 


177577 
177577 


012767 
012767 
012767 


000135 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


000340 
004000 
014174 


004000 
003676 
177577 
177777 


000200 


000200 


177777 
177777 


bs sascluisesleiatas 


163676 
003750 
003736 


003666 
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2$: 


SEQ 95 | 


BITX=BITX+BITX 
BITC=BLIC+1 
CLRBIT=-BITX-1 
BITCLR=CLRBIT 


REGTS7 


TS \XN,4000,2$ 
V 


SCOPE | 


t/DHBCR/ ,\BITX,*/BREAK CONTROL/,\BITC,177777,\BITCLR | 


sBREAK CONTROL REGISTER DATA TEST 

s;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 7 

;VERIFY THAT BIT 7 WAS CLEARED 

sRESTORE BIT 7 

;VERIFY THAT BIT 7 WAS SET 


7134: MO #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
— MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
™ <> 
a MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
XN=XNo 1 
MOV #81T11,@DHSCR sMASTER CLEAR INTERFACE 
MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #177577,R5 ;(R5)=EXPECTED DATA 
sIN BREAK CONTROL REGISTER, 177577 
MOV 177777, CR3) ;SET ALL READ/WRITE BITS 
sIN BREAK CONTROL REGISTER 
BIC 6200, CR3) ;CLEAR BIT 7 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC @,R4 :CLEAR UNWANTED BITS 
> fie ;sWAS BIT 7 CLEARED 
.IIF IDN <DHBCR>, <DHLPR>, HLT sBREAK CONTROL REGIS 
-IIF IDN <DHBCR>, <DHBCR>, HLT :BREAK CONTROL REGIS 
3 
IIF IDN <DHBCR>, <DHSSR>, HLT 4 :BREAK CONTROL REGIS 
1$: BIS #200 ,CR3) ;SET BIT 7 
MOV CR3),R4 
-1IF NB <>, BIC @,R4 ;CLEAR UNWANTED BITS 
ee ree ;sWAS BIT 7 SET 
MOV #177777,R5 3(RS)=EXPECTED DATA IN 
sBREAK CONTROL REGISTER, 177777 
IIF IDN <DHBCR>, <DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
EMT 3 
-ITIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
es: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
CLRBIT=-BITX-1 
BITCLR=CLRBIT 
REGTS7 *t/DHBCR/,\BITX,+t/BREAK CONTROL/,\BITC,177777,\BITCLR 


sBREAK CONTROL REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
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014176 
014176 
014204 
014212 


014220 
024226 
014232 


014236 


014242 
014246 


014250 
014252 


TER ERROR 


014254 
TER ERROR 
01 


4254 


TER ERROR 
014256 
014262 


014264 
014270 
014272 


TER ERROR 
014276 

TER ERROR 
014276 


TER ERROR 
014300 


014302 


014316 


012767 
012767 
012767 


000136 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 
052713 
011304 
022704 


001403 
012705 


176777 


012767 
012767 


004000 
003572 
177377 
177777 


000400 


000400 


177777 
177777 


163572 
003644 
003632 


003562 


003540 


;CLEAR BIT 10 

;VERIFY THAT BIT 10 WAS CLEARED 
s;RESTORE BIT 10 

;VERIFY THAT BIT 10 WAS SET 


TS \XN,4000,2$ 


T7135: MOV #340 ,PS 
MOV #4000, ICOUNT 
MOV #2$, ESCAPE 
.IF NB <> 
MOV ¢,FREEZ1 
~ENDC 
XN=XNe1 
MOV #BIT11,8DHSCR 
MOV DHBCR,R3 
MOV $177377,R5 
MOV #177777, CR3) 
BIC #400 ,(R3) 
MOV CR3),R4 
.LIF NB <>, BIC @,R4 
CMP R5, 
BEQ i$ 
IIF IDN <DHBCR>,<DHLPR>, 
IIF ION <DHBCR>,<DHBCR>, 
3 
-ITIF IDN <DHBCR>,<DHSSR>, 
i$: BIS €400,(R3) 
MOV CR3),R4 
-ITIF NB <>, BIC @,R4 
CMP 0177777 ,R4 
BEQ 2s 
MOV 8177777,R5 
-IIF IDN <DHBCR>, <DHLPR>, 
-LIF IDN <DHBCR>, <DHBCR>, 
3 
-IIF IDN <DHBCR>.<DHSSR>, 
2$: SCOPE 
BITX=BITX+BITX 
BITC-BITC+1 
CLRBIT=-BITX-i 
BITCLR 
REGTS7 


SEQ 96 


;sDISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO BREAK CONTROL 
: (RS )=EXPECTED DATA 
sIN BREAK CONTROL REGISTER, 177377 
sSET ALL READ/W°"TE BITS 


sGET CONTENTS OF BREAK CONTROL 
s;CLEAR UNWANTED BITS 
sWAS BIT 10 CLEARED 


HLT 2 ;BREAK CONTROL REGIS 
HLT 3 sBREAK CONTROL REGIS 
HLT = s;BREAK CONTROL REGIS 


sSET BIT 10 
sCLEAR UNWANTED BITS 

;WAS BIT 10 SET 

:CRS)=EXPECTED DATA IN 

sBRFAK CONTROL REGISTER, 177777 


HLT 2 sBREAK CONTROL REGIS 
HLT 3 sBREAK CONTROL REGiS 
HLT 4 sBREAK CONTROL REGIS 


‘t/DHBCR/ , \BITX,*/BREAK CONTROL/, \BITC, 177777, \BITCLR 
sBREAK CONTROL REGISTER DATA TEST 


ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 


;SET 
sCLEAR BIT 11 


sVERIFY THAT BIT 11 WAS CLEARED 


sRESTORE BIT 11 
sVERIFY THAT BIT 11 WAS SET 


TS \XN,4000,2$ 
ane 163466 1136: 


0040 
012767 014404 003526 ~~ 








MOV - #340,PS 
MOV #4000, ICOUNT 
MOV #28, ESCAPE 


sDISABLE ALL INTERRUPTS 
SET UP FOR 4000 ITERATIONS 
3;SET UP TO ESCAPE TO NEXT TEST 
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014324 
014332 
014336 
014342 


014346 
014352 


014354 
014356 


TER ERRGR 


014360 
TER ERROR 
014360 


TER ERROR 
014362 
014366 
014370 
014374 
014376 

TER ERROR 
0144 


TER ERROR 
014402 


TER ERROR 
014404 


014406 


000137 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


104003 


175777 


012767 
012767 
012767 


000140 
012777 
016703 
012705 


012713 


004000 
003466 
176777 
177777 


001000 


001000 


177777 
177777 


000340 
004000 
014510 


004000 
003362 
175777 


177777 





003456 


163362 


003352 





SEQ 97 


.IF NB <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC - 
XN=XNe1 
MOV #BIT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #176777,R5 ;(R5)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 176777 
MOV #177777, CR3) ;SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
BIC #1000, (R3) ;CLEAR BIT 11 
MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
co t ;WAS BIT 11 CLEARED 
.IIF IDN <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
.1IF ION <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
EMT 3 
.ITIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL RECIS 
1$: BIS #1000, (R3) ;SET BIT 11 
MOV CR3),R4 
-IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
Sak + allel at ;sWAS BIT 11 SET 
MOV #177777,R5 ;(R5)=EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
-IIF IDN <DHBCR>,<DHLPR>, HLT 2 :BREAK CONTROL REGIS 
-I1IF ION <DHBCR>,.<DHBCR>, HLT 3 :BREAK CONTROL REGIS 
EMT 3 
-LIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
2$: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
CLRBIT=-BITX-1 
BITCLR=CLRBIT 
REGTS7 +t/DHBCR’,\BITX,*t/BREAK CONTROL/, \BITC, 177777, \B1ITCLR 
;sBREAK “ONTROL REGISTER DATA TEST 
;SET AL. READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 12 
;VERIFY THAT BIT 12 WAS CLEARED 
sRESTORE BIT i2 
;VERIFY THAT BIT 12 WAS SET 
TS \XN,4000,2$ 
7137: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET WP FOR 4000 ITERATIONS 
oe MOV $2$, ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
4 <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #B1T11,@DHSCR sMASTER CLEAR INTERFACE 
MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
MOV #175777,R5 :(R5)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 175777 
MOV #177777, CR3) ;SET ALL READ/WRITE BITS 
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014452 
014456 


014460 
014462 


TER ERROR 
0144 

TER ERROR 
0144 


TER ERROR 
0144 
014472 
014474 
014500 
014502 
TER ERROR 
14506 
TER ERROR 
014506 


TER ERROR 
014510 


014512 


014512 
014512 
014520 
014526 


014534 
014542 
014546 
014552 


014556 
014562 


014564 
014566 


. TER ERROR 
014570 


014570 


042713 002000 
011304 


020504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


104003 


104400 
004000 
000013 
173777 
173777 


012767 
012767 
012767 


000141 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 


002000 


177777 
177777 


173777 
177777 
004000 


SEQ 98 


;IN BREAK CONTROL REGISTER 
;CLEAR BIT 12 

;GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 

sWAS BIT 12 CLEARED 


HLT 2 s;BREAK CONTROL REGIS 
HLT ;BREAK CONTROL REGIS 
HLT 4, ;BREAK CONTROL REGIS 
;SET BIT 12 


;CLEAR UNWANTED BITS 
;WAS BIT 12 SET 


;(R5)=EXPECTED DATA IN 
oe ate — REGISTER, 177777 


sBREAK CONTROL REGIS 


HLT 3 ;BREAK CONTROL REGIS 


HLT 4 ;sBREAK CONTROL REGIS 


t/DHBCR/ ,\BITX,*/BREAK CONTROL/,\BITC,177777,\BITCLR 


sSET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 








sDISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; $ 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO BREAK CONTROL 
;(RS)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 173777 
;SET ALL READ/WRITE BITS 
sIN BREAK CONTROL REGISTER 
;CLEAR BIT 13 
;GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 
sWAS BIT 13 CLEARED 


HLT 
HLT 


;BREAK CONTROL REGIS 
sBREAK CONTROL REGIS 





BIC #2000, (R3) 
MOV (R3),R4 
.IIF NB <>, BIC #,R4 
CMP R5,R4 
BEQ 1$ 
.IIF ION <DHBCR>, <DHLPR>, 
.IIF IDN <DHBCR>,<DHBCR>, 
EMT 3 
.IIF ION <DHBCR>, <DHSSR>, 
i$: BIS #2000, (R3) 
“ny (R3), 
.IIF NB <-, BIC #,R4 
CMP #177777,R4 
BEQ 2$ 
MOV #177777,R5 
.IIF IDN <DHBCR>, <DHLPR>, 
.IIF ION <DHBCR>, <DHBCR>, 
EMT 3 
-LIF IDN <DHBCR>,<DHSSR>, 
2$: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
CLRBIT=-BITX-1 
BITCLR=CLRBIT 
REGTS7 
;BREAK CONTROL REGISTER DATA TEST 
;CLEAR BIT 13 
;VERIFY THAT BIT 13 WAS CLEARED 
sRESTORE BIT 13 
;VERIFY THAT BIT 13 WAS SET 
TS \XN,4000,2$ 
163256 1140: MOV #340,PS 
003330 MOV #4000, ICOUNT 
003316 V #2$, ESCAPE 
-1F NB <> 
MOV #,FREEZ1 
-ENDC 
XN=XNel 
003246 MOV #81T11,9DHSCR 
MOV DHBCR,R3 
MOV $173777,R5 
MOV 177777, (R3) 
BIC #4000, (R3) 
MOV (R3),R4 
IIF NB <>, BIC #,R4 
CMP ; 
BEQ i$ 
IIF IDN <DHBCR>,<DHLPR>, 
-IIF IDN <DHBCR>,<DHBCR>, 
EMT 3 


' 
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70 ennen -L1IF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
014572 052713 004000 1$: BIS #4000, (R3) ;SET BIT 13 
014576 011304 MOV (R3),R4 
-LIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
014600 022704 177777 CMP #177777,R4 ;WAS BIT 13 SET 
014604 001403 BEQ 2$ 
014606 012705 177777 MOV #177777,R5 ;(R5)=EXPECTED DATA IN 
— — _ —— REGISTER, 177777 
° < >,< >, BREAK TR R 
- Te asians IIF IDN DHBCR DHBCR | on iri 
. < >,< >, HLT 3 BREAK TR R 
TER ERROR $ CONTROL REGIS 
014612 104003 _ oa a — ' 
< >,< * HL 4 BREAK CONTROL R 
TER ERROR a See 
0146 104400 2$: SCOPE 
010000 BITX=BITX+BITX 
000014 BITC=BITC+1 
167777 CLRBIT=-BITX-1 
167777 BITCLR=CLRBIT 
014616 REGTS7 t/DHBCR/,\BITX,+t/BREAK CONTROL/,\BITC,177777,\BITCLR 
;BREAK CONTROL REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 14 
;VERIFY THAT BIT 14 WAS CLEARED 
sRESTORE BIT 14 
;VERIFY THAT BIT 14 WAS SET 
014616 TS \XN,4000,2$ 
014616 012767 000340 163152 T1141: MOV #340,PS ;DISABLE ALL INTERRUPTS 
014624 012767 004000 003224 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
014632 012767 014720 003212 per MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
-. <> 
cme MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000142 XN=XNeol 
014640 012777 004000 003142 MOV #BIT11,@8DHSCR sMASTER CLEAR INTERFACE 
014646 016703 003152 MOV DHBCR ,R3 ;SET UP POINTER TO BREAK CONTROL 
014652 012705 167777 MOV #167777,R5 ;(RS)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 167777 
014656 012713 177777 MOV #177777, (R3) ;SET ALL READ/WRITE BITS 
;IN BREAK CONTROL REGISTER 
014662 042713 010000 BIC #10000 , (R3) ;CLEAR BIT 14 
014666 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
014670 020504 R5, ;WAS BIT 14 CLEARED 
014672 001401 i$ 
IIF ION <DHBCR>,<DHLPR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
014 IIF ION <DHBCR>,<DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
014674 104003 3 
IIF IDN <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
014676 052713 010000 i$: BIS #10000 ,(R3) ;SET BIT 14 
014702 011304 MOV CR3),R4 
.IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
014704 0622704 177777 CMP #177777,R4 ;sWAS BIT 14 SET 
014710 001403 BEQ 2$ 
014712 012705 177777 MOV #177777,R5 :(R5)=EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
a a FRE GN a BHR HER ee 


fee ee 
TER ERROR 


LT : 


SEQ 100 


ee ae 
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014716 -IIF IDN <DHBCR>,<DHBCR>, HLT 3 BREAK 
TER ERROR ; CONTROL REGIS 
014716 104003 — —" — on 
F < >,< >, HLT 4 BREAK CONTR 
TER ERROR : Cc OL REGIS 
014720 104400 23: SCOPE 
020000 BITX=BITX+BITX 
009915 BITC=BITC+i 
157777 CLRBIT=-BITX-1 
157777 BITCLR=CLRBIT 
014722 REGTS7 +t/DHBCR/,\BITX,t/BREAK CONTROL/,\BITC,177777,\BITCLR 
;sBREAK CONTROL REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO iS 
;CLEAR BIT 15 
;VERIFY THAT BIT 15 WAS CLEARED 
sRESTORE BIT 15 
;VERIFY THAT BIT 15 WAS SET 
014722 TS \XN,4000,2$ 
014722 012767 000340 163046 1142: MOV #340,PS ;DISABLE ALL INTERRUPTS 
014730 012767 004000 003120 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
014736 012767 015024 003106 + MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
“ <> 
nee MOV +, FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000143 XN=XNeo1 
014744 012777 004000 003036 MOV #BIT11,9DHSCR ;MASTER CLEAR INTERFACE 
014752 016703 003046 MOV DHBCR,R3 ;SET UP POINTER TO BREAK CONTROL 
014756 012705 157777 MOV #157777,R5 ;(RS)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 157777 
014762 012713 177777 MOV #177777,CR3) ;SET ALL READ/WRITE BITS 
:IN BREAK CONTROL REGISTER 
014766 042713 020000 BIC #20000 , (R3) ;CLEAR BIT 15 
014772 011304 MOV CR3),R4 ;GET CONTENTS OF BREAK CONTROL 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
014774 020504 CMP R5 ,R4 ;WAS BIT 15 CLEARED 
014776 001401 BEQ i$ 
Ter EAROR IIF IDN <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
015000 IIF ION <DHBCR>, <DHBCR>, HLT ;BREAK CONTROL REGIS 
TER ERROR 
015000 104003 EMT 3 
Ter ennon IIF ION <DHBCR>,<DHSSR>, HLT 4 ;BREAK CONTROL REGIS 
015002 052713 020000 1$ BIS #20000 ,(R3) ;SET BIT 15 
015006 011304 MOV CR3),R4 
IIF NB <>, BIC #,R4 ;CLEAR UNWANTED BITS 
015010 022704 177777 CMP #177777,R4 ;WAS BIT 15 SET 
015014 001403 BEQ 2$ 
015016 012705 177777 MOV #177777,R5 ;(R5)=EXPECTED DATA IN 
sBREAK CONTROL REGISTER, 177777 
ver ganen IIF ION <DHBCR>,<DHLPR>, HLT 2 ;BREAK CONTROL REGIS 
015022 .IIF ION <DHBCR>,<DHBCR>, HLT 3 ;BREAK CONTROL REGIS 
TER ERROR 
‘ 015022 104003 EMT 3 
.IIF ION <DHBCR>,<DK=SK>, HLT 4 ;BREAK CONTROL REGIS 
TER ERROR 
015024 104400 2$: SCOPE 
040000 BITX=BITX+BITX 
000016 BITC=BITC+1 
137777 CLRBIT=-BITX-1 
be 


015026 


REGTS7 





t/DHBCR/ ,\BITX,t “BREAK CONTROL/,\BITC,177777,\BITCLR 


oe 
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015072 
015076 


015100 
015102 


TER ERROR 
015104 

TER ERROR 
015104 

TER ERROR 
015106 
015112 
015114 


015120 
015122 


TER ERROR 


TER ERROR 
015130 


015132 


015132 


012767 
012767 
012767 


000144 
012777 
016703 
012705 


012713 


042713 
011304 


020504 
001401 


104003 


052713 
011304 


022704 
001403 
012705 


104003 


104400 
100000 
000017 
077777 
077777 


004000 
002742 
137777 
177777 


040000 


040000 


177777 
177777 





162742 
003014 
003002 


002732 


_—— On me meme 


SEQ 101 


sBREAK CONTROL REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 
;CLEAR BIT 16 


;VERIFY THAT BIT 16 WAS CLEARED 


sRESTORE BIT 16 


;VERIFY THAT BIT 16 WAS SET 


TS \XN,4000,2$ 
7143: 
IF NB <> 


-ENDC 
XN=XN+1 


LIF NB <>, 


-IIF IDN 
-ITIF ION 


-ITIF IDN 
1$; BIS 
LIF NB <>, 


.ITIF IDN 
.IIF IDN 


-ITIF ION 


2$; SCOPE 
BITX=BITX+BITX 
BITC=BITC+i 

CLRBIT=-BITX-1 
BITCLR=CLRBIT 


#340 ,PS 
#4000, ICOUNT 
#2$,ESCAPE 
#,FREEZ1 
#B1T11,@DHSCR 
DHBCR , R3 
#137777,R5 
#177777, CR3) 
#40000 , (R3) 


CR3),R4 
BIC #,R4 


1$ 
<DHBCR>,<DHLPR>, 
<DHBCR>,<DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


#40000, (R3) 
CR3),R4 


BIC #,R4 
#177777,R4 
2s 
#177777,R5 


<DHBCR>,<DHLPR>, 
<DHBCR>, <DHBCR>, 


3 
<DHBCR>,<DHSSR>, 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO BREAK CONTROL 
;CRS5)=EXPECTED DATA 
;IN BREAK CONTROL REGISTER, 137777 
;SET ALL READ/WRITE BITS 
sIN BREAK CONTROL REGISTER 
;CLEAR BIT 16 
;GET CONTENTS OF BREAK CONTROL 
;CLEAR UNWANTED BITS 
;WAS BIT 16 CLEARED 


HLT 2 ;sBREAK CONTROL REGIS 
HLT 3 ;BREAK CONTROL REGIS 
HLT 4 sBREAK CONTROL REGIS 
;SET BIT 16 


sCLEAR UNWANTED BITS 
;WAS BIT 16 SET 


;(RS)=EXPECTED DATA IN 
;BREAK CONTROL REGISTER, 177777 
HLT 2 ;BREAK CONTROL REGIS 


HLT 3 s;BREAK CONTROL REGIS 


HLT 4 


sBREAK CONTROL REGIS 


REGTS7 */DHBCR/,\BITX,+t/BREAK CONTROL/,\BITC,177777,\BITCLR 


s;BREAK CONTROL REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN BREAK CONTROL REGISTER TO 1S 


;CLEAR 


BIT 17 
;VERIFY THAT BIT 17 WAS CLEARED 


sRESTORE BIT 17 


sVERIFY THAT BIT 17 WAS SET 


TS \XN,4000,2$ 











TER 


TER 
TER 


TER 


— — 


015172 


015176 
015202 


015204 
015206 
015210 
015210 


015216 


015220 
015224 
015226 


015232 


ERROR 


015232 


ewe eee 


012767 
012767 
012767 


012713 


042713 
011304 


020504 
001401 
104903 
052713 


011304 


022704 
001403 
012705 


104003 


104400 


000007 


000340 
015234 


077777 
177777 
100000 


100000 


177777 
177777 


162636 
002710 
002676 


002626 
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004000 ; . 
&, : 
004000 : 
002636 CR,R3 ;SET 
! ; I 
(R3),R4 
) CMP 5.R4 
13 
TER ERROR 
TER ERP 2 
T 


SEQ 102 
7144 MOV #340,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
—_ MOV $2$ , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 


ENDC 

XN=XN+1 

#B81IT11,@8DHSCR 
DHB 

#77777 RS 


sMASTER CLEAR INTERFACE 

UP POINTER TO BREAK CONTROL 
;(RS)=EXPECTED DATA 

;IN BREAK CON;ROL REGISTER, 77777 

;SET ALL READ/WRITE BITS 

IN BREAK CONTROL REGISTER 

;CLEAR BIT 17 

;GET CONTENTS OF BREAK CONTROL 

;CLEAR UNWANTED BITS 

sWAS BIT 17 CLEARED 


HLT 2 


#177777, CR3) 
#100000, (R3) 
MOV , 
BIC 
RS, 
<DHBCR>, <DHLPR> 


<DHBCR>, <DHBCR> 


#,R4 


sBREAK CONTROL REGIS 
;BREAK CONTROL REGIS 


3 
<DHBCR>,<DHSSR>, 
#100000, (R3) 
CR3),R4 


HLT 4 
;SET BIT 17 


;CLEAR UNWANTED BITS 
:WAS BIT 17 SET 


;(RS)=EXPECTED DATA IN 
he ie — REGISTER, 177777 


;BREAK CONTROL REGIS 


O177777.R4~ 
9177777, RS 
<DHBCR>,<DHLPR>, 
<DHBCR>, <DHBCR>, 


sBREAK CONTROL REGIS 


HLT 3 ;BREAK CONTROL REGIS 


3 
<DHBCR>,<DHSSR>, HLT 4 


;BREAK CONTROL REGIS 


2s: SCOPE 
BITX=BITX+BITX 
BITC=BITC+1 
XBIT=BITX 
CBIT=BITC 
BITX=1 
BITC=0 
REPT 7 
-NLIST 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE100077 
BITCLR=CLRBIT 


352 .LIST 

353 REGTS7 t/DHSSR/,\BITX,*/SILO STATUS/,\BITC,100077,CLRBIT, 77700 
354 IF EQ BITX-40 
355 -NLIST 

356 BITX=100000 

357 BITC=17 

358 ~LIST 

359 . IFF 

360 -NLIST 

361 BITX=BITX+BITX 
362 BITC=BITC+1 

363 .LIST 














SEQ 103 
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364 
365 


R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


015236 


015236 
015236 
015244 
015252 


015260 
015266 
015272 
015276 
015302 


015342 


015346 


015346 
015350 


177776 


100076 — 


100076 


012767 
012767 
012767 


000146 
012777 
016703 
012705 


012713 


012705 


104004 
104400 


000002 
000001 


000001 


077700 
100077 


100077 





ce 


002522 


-ENDC 


-ENDR 

CCRBIT=-BITX-1 
CLRBIT=CCRBITE100077 
BITCLR=CLRBIT 

REGTS7 


t/DHSSR/ ,\BITX,t/SILO STATUS/, \BITC, 100077, CLRBIT, 777006 


;SILO STATUS REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO 1S 
;CLEAR BIT O 

;VERIFY THAT BIT 0 WAS CLEARED 

sRESTORE BIT O 

;VERIFY THAT BIT O WAS SET 


TS \XN,4000,2$ 
7145: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
—_ MOV $25, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
P <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #B8IT11,3DHSCR ;MASTER a INTERFACE 
MOV DHSSR,R3 T UP POINTER TO SILO STATUS 
MOV #CLRBIT,RS ; (RS )*EXPECTED DATA 
;IN SILO STATUS REGISTER, CLRBIT 
MOV #100077, (R3) ;SET ALL READ/WRITE BITS 
;IN SILO STATUS REGISTER 
BIC #1,CR3) ;CLEAR BIT O 
MOV CR3),R4 ;GET CONTENTS OF SILO STATUS 
IIF NB <77700>, BIC #77700 ,R4 ;CLEAR UNWANTED BITS 
»R4 ;WAS BIT 0 CLEARED 
BEQ i$ 
IIF IDN <DHSSR>,<DHLPR>, HLT 2 ;SILO STATUS REGISTE 
IIF ION <DHSSR>,<DHBCR>, HLT ;SILO STATUS REGISTE 
IIF ION <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
EMT 4 
i$: BIS #1,(R3) ;SET BIT O 
MOV CR3),R4 
.LIF NB <77700>, BIC #77700 ,R4 ;CLEAR UNWANTED BITS 
sid in ;WAS BIT O SET 
MOV #100077,R5 ;(RS)=EXPECTED DATA IN 
;SILO STATUS REGISTER, 100077 
-LIF ION <DHSSR>,<DHLPR>, HLT 2 :SILO STATUS REGISTE 
.ITIF ION <DHSSR>,<OHBCR>, HLT 3 sSILO STATUS REGISTE 
.L1IF ION <DHSSR>,<DHSSR>, HLT 4 ;SILO STATUS REGISTE 
EMT 4 
23: SCOPE 
IF ? BITX-40 
BITX=100000 
BITC=17 
-LIST 
.IFF 
BITX=BITX+BITX 
BITC=BITC+1 








ee te eee 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 


015352 


015352 
015352 
015360 
015366 


015374 


177775 
100075 
100075 


012767 
012767 
012767 


000147 
012777 
016703 
012705 


012713 


104004 
052713 
011304 
042704 
022704 
001403 
012705 


104004 
104400 





162416 
002470 
002456 


002406 


ES SPS SS EN OD RS A IIE ES SL 
ROE SER 2 ne AR PSR TOR A OS ELIOT LSS SE TD 


-ENOC 
CCRBIT=-BITX-1 


CLRBIT=CCRBITE100077 


BITCLR=CLRBIT 
REGTS7 





SEQ 104 


t/DHSSR/ ,\BITX,*t/SILO STATUS/,\BITC, 100077, CLRBIT, 77700 


;SILO STATUS REGISTER DATA TEST 
;SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO 1S 


;DISABLE ALL INTERRUPTS 
;SET UP FOR 4000 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
;SET UP POINTER TO SILO STATUS 
;(RS)=EXPECTED DATA 
sIN SILO STATUS REGISTER, CLRBIT 
sSET ALL READ/WRITE BITS 
sIN SILO STATUS REGISTER 
;CLEAR BIT 1 
;GET CONTENTS OF SILO STATUS 


977700 ,R4 ;CLEAR UNWANTED BITS 
s;WAS BIT 1 CLEARED 
HLT sSILO STATUS REGISTE 
HLT sSILO STATUS REGISTE 
HLT sSILO STATUS REGISTE 
sSET BIT 1 
€77700 ,R4 s;CLEAR UNWANTED BITS 
sWAS BIT 1 SET 


3(RS)*EXPECTED DATA IN 
sSILO STATUS REGISTER, 100077 


HLT 2 sSILO STATUS REGISTE 
HLT 3 :SILCG STATUS REGISTE 
HLT 4 sSILO STATUS REGISTE 


;CLEAR BIT 1 
;VERIFY THAT BIT 1 WAS CLEARED 
;sRESTORE BIT 1 
;VERIFY THAT BIT 1 WAS SET 
TS \XN,4000,2$ 
T146: MOV #340 ,PS 
MOV #4000, ICOUNT 
V 2% ,ESCAPE 
-IF NB <> 
MOV @,FREEZ1 
.ENDC 
XN*XNel1 
MOV #BIT11,@DHSCR 
MOV DHSSR,R3 
MOV eCLRBIT,.RS 
MOV #100077, (R3) 
BIC #2,CR3) 
MOV CR3),R4 
-IIF NB <77700>, BIC 
CMP ° 
BEQ is 
.LIF ION <DHSSR>,<DHLPR>, 
-LIF IDN <DHSSR>, <DHBCR>, 
-ITIF IDN <DHSSR>,<DHSSR>, 
EMT 4 
MOV CR3) RE 
.LIF NB <77700>, BIC 
CMP #100077, R4 
BEQ as 
MOV #100077 ,R5 
IIF ION <DHSSR>,<DHLPR>, 
TIF ION <DHSSR>, <DHBCR>, 
-IIF ION <DHSSR>.<DHSSR>, 
EMT & 
23: SCOPE 
-IF EQ S8ITX-40 
-NLIST 
BITX+100000 
BITC=17 
-LIST 
.IFF 
BITX*BITX+BITX 
BITC=BITC+1 
-ENOC 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


& 


015466 


015502 


015510 
015516 
015522 


015526 
015532 
015536 
015540 


015544 
015546 


015572 


015576 


015576 
0156006 


177773 
100073 
100073 


012767 
012767 
012767 


000150 
012777 
016703 
012705 


012713 


042713 
011304 
042704 
020504 
001401 


104004 
104400 


000010 
000003 


177767 


000004 


077700 
100077 


100077 





162302 
002354 
002342 


002272 


CCRBIT=-BITX-1 


CLRBIT =CCRBITE100077 


BITCLR=CLRBIT 
REGTS7 


t/DHSSR/ ,\BITX,t/SILO STATUS/,\BITC, 100077, CLRBIT, 77700 


sSILO STATUS REGISTER DATA TEST 
sSET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO 1S 


;CLEAR BIT 2 
;VERIFY THAT BIT 2 WAS CLEARED 
sRESTORE BIT 2 
;VERIFY THAT BIT 2 WAS SET 


TS \XN,4000,2$ 
T7147: 


.IF NB 


.ENDC 
XN=*XNel 


BIC 


MOV 
TIF NB <77700>, 
CMP 


BEQ 
-IIF ION 
-IIF ION 
.IIF ION 


EMT 
1$: BIS 


MOV 
-IIF NB <77700>, 
CMP 


-IIF ION 

EMT 
2s: SCOPE 
og re BITX-40 


BITX*BITX+BITX 
oe 


ENOC 
CCRBIT=-BITX-1 


@340,PS 
#4000, ICOUNT 
@2$, ESCAPE 
@,FREEZ1 
#817T11,8DHSCR 
DHSSR,R3 
@CLRBIT,RS 
#100077, (R3) 


04 ,(R3) 
CR3),R4 


BIC 
R5,.R4 


is 

<DHSSR>,<DHLPR>, 
<DHSSR>,<DHBCR>, 
<DHSSR>, <DHSSR>, 


2s 
#100077,RS 


<DHSSR>,.<DHLPR>, 
<DHSSR>.<DHBCR>, 
<DHSSR>, <DHSSR>, 


4 


AT Rt SE TLASILA LE LOLOL LOLI 
RAREST LY A CRE EDIT ELAS EEE SOTTO REALE LOSE OLL DEEL DEE COLES * ILLES 


#77700 ,R4 





SEQ 105 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
sSET UP POINTER TO SILO STATUS 

sCRS )=EXPECTED DATA 

sIN SILO STATUS REGISTER, CLRBIT 

sSET ALL READ/WRITE BITS 

sIN SILO STATUS REGISTER 
;CLEAR BIT 2 

;GET CONTENTS OF SILO STATUS 
;CLEAR UNWANTED BITS 
sWAS BIT 2 CLEARED 


HLT 2 ;SILO STATUS REGISTE 
HLT ;SILO STATUS REGISTE 
HLT 4 :SILO STATUS REGISTE 
;SET BIT 2 
#77700 ,.R4 ;CLEAR UNWANTED BITS 
3WAS BIT 2 SET 


:CRS)=EXPECTED DATA IN 
a — REGISTER, 100077 


:SILO STATUS REGISTE 
:SILO STATUS REGISTE 
;SILO STATUS REGISTE 


HLT 3 
HLT 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


015602 


015602 
025602 
015610 
015616 


015624 
015632 
015636 


015642 


015646 
015652 
015654 
015660 
015662 


015664 


015664 
015666 
015672 
015674 
015700 
015704 
015706 


015712 


015712 
015714 


100067 
100067 


012767 
012767 
012767 


000151 
012777 
016703 
012705 


012713 


042713 
011304 
042704 
020504 
001401 


104004 
052713 
011304 
042704 
022704 
001403 
012705 


104004 
104400 


000020 
000004 


177757 
100057 


000340 
004000 
015714 


004000 
002170 
100067 
100077 
000010 


077700 


000010 


077700 
100077 


100077 





162166 
002240 
002226 


002156 


ean ae 


CLRBIT=CCRBITE100077 
BITCLR=CLRBIT 
*/DHSSR/,\BITX,*/SILO STATUS/, \BITC, 100077, CLRBIT, 77700 


;SILO STATUS REGISTER DATA TEST 


REGTS7 


TS \XN,4000,2$ 
MOV 


;SET ALL READ/WRITE BITS 
;CLEAR BIT 3 


SEQ 106 


IN SILO STATUS REGISTER TO 15S 


;VERIFY THAT BIT 3 WAS CLEARED 


sRESTORE BIT 3 


;VERIFY THAT BIT 3 WAS SET 


T150: #340 PS 
MOV #4000, ICOUNT 
MOV #2$, ESCAPE 
.IF NB <> 
MOV @,FREEZ1 
.ENDC 
XN=XNel 
MOV #B81IT11,8DHSCR 
MOV DHSSR,R3 
MOV @CLRBIT,RS 
MOV #100077, (R3) 
BIC #10,(R3) 
MOV (R3),R4 
.IIF NB <77700>, BIC 
CMP RS .R4 
BEQ i$ 
.IIF ION <DHSSR>, <DHLPR>, 
-IIF IDN <DHSSR>.<DHBCR>, 
.IIF ION <DHSSR>,<DHSSR>, 
EMT 4 
1$: BIS #10,(R3) 
MOV (R3).R4 
-IIF NB <77700>, BIC 
CMP #100077, R4 
BEQ 23 
MOV $100077,R5 
.IIF IDN <DHSSR>,<DHLPR>, 
LIF IDN <DHSSR>,<DHBCR>, 
-LIF ION <DHSSR>,<DHSSR>, 
EMT 4 
23: SCOPE 
-IF EQ BITX-40 
-NLIST 
BITX=100000 
BITC=17 
LIST 
* IFF 
BITX=BITX+BITX 
BITC=BITC+1 
-ENDC 
CCRBIT=-BITX-1 
CLRBIT=CCRBITE100077 


#77700 ,R4 i 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


s;SET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR INTERFACE 
sSET UP POINTER TO SILO STATUS 
3(RS)=EXPECTED DATA 
sIN SILO STATUS REGISTER, CLRBIT 
sSET ALL READ/WRITE BITS 
sIN SILO STATUS REGISTER 
sCLEAR BIT 3 
sGET CONTENTS OF SILO STATUS 
CLEAR UNWANTED BITS 
sWAS BIT 3 CLEARED 


HLT 2 :SILO STATUS REGISTE 
HLT ;SILO STATUS REGISTE 
HLT a :SILQ STATUS REGISTE 
sSET BIT 3 

#77700 .R4 ;CLEAR UNWANTED BITS 
sWAS BIT 3 SET 


s(RS)=EXPECTED DATA IN 
oe “— REGISTER, 100077 


sSILO STATUS REGISTE 
HLT 3 s52LO STATUS REGISTE 
HLT 4 ;SILO STATUS REGISTE 





SEQ 107 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


015716 


015716 
015716 
025724 
015732 


015740 
015746 
015752 


015756 


015762 
015766 
015770 
015774 
015776 


016000 


016000 
016002 
016006 
016010 
016014 
016020 
016022 


016026 


015026 
016030 


100057 


012767 
012767 
012767 


000152 
012777 
016703 
012705 


012713 


104004 
052713 
011304 
042704 
022704 
001403 
012705 


104004 
104400 


000040 
000005 
177737 


100037 
100037 


000340 
004000 
016030 


000020 


077700 
100077 


100077 





162052 
002124 
002112 


002042 


ee OER AO EER I er ae Ne nnn 
| nacre ne Oe Sen Rt RA RRL TREN RE A EER 


BITCLR=CLRBIT 


REGTS7 


TS \XN,4000,2$ 
T1i51: 


t/DHSSR/,\BITX,*/SILO STATUS/,\BITC,100077,CLRBIT, 77700 


;SILO STATUS REGISTER DATA TEST 

SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO 1S 
;CLEAR BIT 4 

;VERIFY THAT BIT 4 WAS CLEARED 

sRESTORE BIT 4 

;VERIFY THAT BIT 4 WAS SET 


MOV #340,PS sDISABLE ALL INTERRUPTS 
MOV #4000, ICOUNT sSET UP FOR 4000 ITERATIONS 
~ MOV $23, ESCAPE s;SET UP TO ESCAPE TO NEXT TEST 
< <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
.ENDC 
XN=XNeo1 
MOV #BIT11,aDHSCR sMASTER CLEAR INTERFACE 
MOV DHSSR,RS ;SET UP _— TO SILO STATUS 
MOV OCLRBIT,RS :(RS)*EXPECTED DATA 
sIN SILO STATUS REGISTER, CLRBIT 
MOV #100077, (R3) sSET ALL READ/WRITE BITS 
SIN SILO rm REGISTER 
BIC 20, (R3) sCLEAR BIT 4 
MOV CR3),R4 sGET CONTENTS OF SILO STATUS 
.IIF NB <77700>, BIC #77700, Ra s;CLEAR BITS 
Nas la sWAS BIT 4 CLEARED 
-IIF ION <DHSSR>,<DHLPR>, HLT sSILO STATUS REGISTE 
.IIF ION <DHSSR>, <DHBCR>, HLT sSILO STATUS REGISTE 
-IIF IDN <DHSSR>, <DHSSR>, HLT sSILO STATUS REGISTE 
EMT 
is: BIS #20, (R3> sSET BIT 4 
MOV CR3) RE 
TIF NB <77700>, BIC $77700 ,R4 sCLEAR UNWANTED BITS 
ra Ps 77,4 sWAS BIT 4 SET 
MOV #100077 ,85 :(RS)=EXPECTED DATA IN 
SILO STATUS REGISTER, 100077 
-IIF IDN <DHSSR>, <DHLPR>, HLT é sSILO STATUS REGISTE 
-IIF ION *<DHSSR>, <DHBCR>, HLT 3 sSILO STATUS REGISTE 
LIF IDN <DHSSR>,<DHSSR>, HLT 4 :SILO STATUS REGISTE 
EMT a 
23: SCOPE 
-NLIST 
BITX=100000 
BITC=17 
-LIST 
LFF 
BITX=BITX+BITX 
BITC=BITC+1 
-ENDC 
CCRBIT=-BITX-1 
CLRBIT =CCRBITE100077 
BITCLR=CLRBIT 
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R ERROR 
R ERROR 
R ERROR 


R ERROR 
R ERROR 
R ERROR 


016032 


016032 
016032 
016040 
026046 


016054 
016062 
016066 


016072 


016076 
016102 
016104 
016110 
016112 


016114 


016114 
016116 
016122 
016124 
016130 
016134 
016136 


016142 


016142 
016144 


016146 


012767 
012767 
012767 


000153 
012777 
016703 
012705 


012713 


042713 
011304 
042704 
020504 
001401 


104004 
052713 
011304 
042704 
022704 
001403 
012705 


104004 
104400 


100000 
000017 


077777 
000077 
000077 


000340 
004000 
016144 


004000 
001740 
100037 
100077 
000040 


077700 





161736 
002010 
001776 


001726 


REGTS7 


t/DHSSR/ ,\BITX,*/SILO STATUS/, \BITC,100077,CLRBIT, 77700 
;SILO STATUS REGISTER DATA TEST 


;SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO 15S 


;CLEAR BIT 5 


;VERIFY THAT BIT S WAS CLEARED 


sRESTORE BIT 5 


;VERIFY THAT BIT 5S WAS SET 


TS \XN,4000,2$ 


T152: MOV #340 ,PS 
MOV #4000, ICOUNT 
MOV #2$, ESCAPE 
.IF NB <> 
MOV #,FREEZ1 
-ENDC 
XN=XNel 
MOV $BIT11,@DHSCR 
MOV DHSSR,R3 
MOV @CLRBIT,.RS 
MOV #100077, (R3) 
BIC #40, (R3) 
MOV CR3),R4 
-IIF NB <77700>, BIC 
CMP R5 ,R4 
BEQ is 
.IIF ION <DHSSR>,<DHLPR>, 
.ITIF IDN <DHSSR>, <DHBCR>, 
-1IF ION <DHSSR>.<DHSSR>, 
EMT 
1$: BIS #40, (R3) 
M0 CR3),.R4 


v 
-ITIF NB <77700>, 


$100077,R5 

<DHSSR>,<DHLPR>, 
<DHSSR>, <DHBCR>, 
<DHSSR>, <DHSSR>, 


EMT 4 
23: SCOPE 


BITX=100000 


-NLIST 
BITX=BITX+BITX 
BITC=BITC+1 

«LIST 

-ENDC 

CCRBIT=-BITX-1 
CLRBIT=CCRBITE100077 
BITCLR=CLRBIT 

REGTS7 


ene A ene RR SN LA TA TTR LE GIS a = 


#77700 ,.R4 


t/DHSSR/ ,\BITX,*/SILO STATUS/, \BITC, 100077 ,CLRBIT, 77700 
RECON S NERE RAY SAT hE SSCS EEE A AEA APCS SERIO 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 4000 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 


SEQ 108 


;SET UP POINTER TO SILO STATUS 


:(RS)=EXPECTED DATA 


2 SILO STATUS REGISTER, CLRBIT 


T ALL READ/WRITE BITS 
sIN SILO STATUS REGISTER 
;CLEAR BIT 5 
ee CONTENTS OF SILO STATUS 


s;CLEAR UNWANTED BITS 


TuAS BIT 5 CLEARED 
HLT 
HLT 
HLT 


sSET BIT 5 

sWAS BIT 5 SET 

3(RS)=EXPECTED DATA IN 

oe “—— REGISTER, 100077 


HLT 3 
HLT = 


sSILO STATUS REGISTE 
sSILO STATUS REGISTE 
sSILO STATUS REGISTE 


sCLEAR UNWANTED BITS 


sSILO STATUS REGISTE 
sSILO STATUS REGISTE 
sSILO STATUS REGISTE 





SEQ 109 


CZ0HA-D MACRO VO4.00 27-JUN-85 12:46:01 PAGE 17-87 


;SILO STATUS REGISTER DATA TEST 

;SET ALL READ/WRITE BITS IN SILO STATUS REGISTER TO 15S 
;CLEAR BIT 17 

;VERIFY THAT BIT 17 WAS CLEARED 

sRESTORE BIT 17 

sVERIFY THAT BIT 17 WAS SET 


aaa. Ga 


ie 


016146 TS \XN,4000,2$ 
016146 012767 000340 161622 T1153: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
016154 012767 004000 001674 MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
016162 012767 016260 001662 - MOV #2$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
- <> 
— MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000154 XN=XNel 
016170 012777 004000 001612 MOV #68IT11,@DHSCR sMASTER CLEAR INTERFACE 
016176 016703 001624 MOV DHSSR,R3 sSET UP POINTER TO SILO STATUS 
016202 012705 000077 MOV #CLRBIT,RS ;(RS)*EXPECTED DATA 
;IN SILO STATUS REGISTER, CLRBIT 
016206 012713 100077 MOV #100077, (R3) sSET ALL READ/WRITE BITS 
;IN SILO STATUS REGISTER 
016212 042713 100000 BIC #100000, (R3) e BIT 17 
016216 011304 MOV CR3),R4 CONTENTS OF SILO STATUS 
016220 042704 077700 .IIF NB <77700>, BIC #77700, Ré ;CLEAR UNWANTED BITS 
016224 020504 CMP R5,.R4 sWAS BIT 17 CLEARED 
016226 001401 BEQ is 
-IIF ION <DHSSR>, <DHLPR>, HLT :SILO STATUS REGISTE 
.IIF ION <DHSSR>, <DHBCR>, HLT sSILO STATUS REGISTE 
016230 TIF ION <DHSSR>, <DHSSR>, HLT a :SILO STATUS REGISTE 
016230 EMT a 
016232 052713 100000 1$: BIS #100000, (R3) sSET BIT 17 
016236 011304 10V CR3).R4 
016240 042704 077700 -IIF NB <77700>, BIC #77700 ,R4 sCLEAR UNWANTED BITS 
016244 022704 100077 CMP #100077 ,R4 3;WAS BIT 17 SET 
016250 001403 BEG 2s 
016252 012705 100077 MOV $100077.85 ;(R5)-EXPECTED DATA IN 
sSILO STATUS REGISTER, 100077 
-IIF ION <DHSSR>, <DHLPR>, HLT 2 :SILO STATUS REGISTE 
-IIF ION <DHSSR>, <DHBCR>, HLT 3 :SIL_O STATUS REGISTE 
016256 .LIF ION <DHSSR>, <DHSSR>, HLT By ;SILO STATUS REGISTE 
016256 104004 EMT & 
016260 104400 : OPE 
-IF €Q@ BITX-40 
»NLIST 
BITX=100000 
BITC=17 
-LIST 
.IFF 
000000 BITX=BITX+BITX 
000020 BITC=BITC+1 
nis -ENDC 
367 sSYSTEM CONTROL REGISTER MOVE-BYTE TEST (PART 1) 
368 sISSVE A MASTER CLEAR 
369 ; ;MOVE A BYTE TO SET INTERRUPT ENABLE BITS 
370 ; 





IN UPPER BYTE OF SYSTEM CONTROL 
oe aammeenamunieeieemenmemeeea ae ; 
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016262 
016266 
016274 
016302 
016310 
016316 
016322 
016324 


016330 


016502 


012706 
012767 
012767 
012767 
052777 
016703 
005203 
112713 


112777 
022777 
001405 
012705 
017704 


104001 
104400 


104001 
112713 


021544 
000340 


161502 
001550 
001546 
001472 


001452 


001426 
001420 


T154: 


23: 


TiS5: 


2s: 


SEQ 110 


sVERIFY BITS SET CORRECTLY 
;MOVE A BYTE TO SET INTERRUPT ENABLE BIT 


: 
; VERIFY 


IN LOWER BYTE OF SYSTEM CONTROL 


UPPER BYTE WAS NOT AFFECTED 
MOV #STACK, SP s;SET UP STACK 
MOV #340, PS sLOCK OUT INTERRUPTS 
MOV #99$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
MOV #4000, ICOUNT ;SET UP FOR 4000 ITERATIONS 
BIS #BIT11, Q@DHSCR ;ISSUE MASTER CLEAR 
MOV DHSCR, hepitiead CONTROL REGISTER ADDRESS 
INC 3 UPPER BYTE 
MOVB #60, CR3) SET INTERRUPT ENABLE BITS 
sIN UPPER BYTE OF SYSTEM CONTROL 
CMP $81113+B1T12, @DHSCR ;sVERIFY BITS SET CORRECTLY 
BEQ 2 sBRANCH IF OK 
MOV @BIT13+BIT12,R5 :CRS)*REGISTER EXPECTED DATA 
MOV @OHSCR, R4 3(R4)=REGISTER ACTUAL DATA 
a sBITS DID NOT SET CORRECTLY 
BR 99% sBRANCH TO S 
MOVB @BITO6, GDHSCR ;SET INTERRUPT ENABLE BIT 
sIN LOWER BYTE OF SYSTEM CONTROL 
ad gBIT13¢BIT12-81706 F Ox sVERIFY BITS SET CORRECTLY 
MOV @BIT13-BIT12-BITO6 RS s(RS)=REGISTER EXPECTED DATA 
MOV SDHSCR, R4 sCR4)=REGISTER ACTUAL DATA 
ae i sUPPER BYTE WAS AFFECTED? 
SCOPE sCHECK FOR ITERATIONS,LOOP 


sSYSTEM CONTROL — MOVE-BYTE TEST (PART 2) 


sISSUE MASTER CL 


oo A BYTE TO SET LINE SELECT BITS 
IN LOWER BYTE OF SYSTEM CONTROL 
{VERIFY BITS SET CORRECTLY 


macy A BYTE TO SET THE MAINTENANCE BIT 
IN UPPER BYTE OF SYSTEM CONTROL 
;VERIFY LOWER BYTE WAS NOT AFFECTED 


MOV @STACK, SP 
MOV €340, PS 
MOV » ESCAPE 
MOV 000. ICOUNT 
BIS #68IT1i1, SOHSCR 
MOV » RS 

INC RS 

MOVE #17, SDHSCR 
CMP 17, @DHSCR 
BEQ 2$ 

MOV 017, RS 
MOV » RE 
HLT 

EMT 

BR 99% 

MOVB #2, CR3) 








; REGISTER EXPECTED DATA 
: CRAO*REGISTER ACTUAL DATA 
sBITS DIO NOT SET CORRECTLY 


sBRANCH TO SCOPE 
sSET MAINTENANCE BIT 
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425 
426 
427 
428 
429 
430 


431 


432 
433 


434 


016506 
016514 
016516 
016522 
016526 
016526 
016530 


016532 


022777 
001405 
012705 
017704 


104001 
104400 


016767 


013701 
001405 
000005 


032777 


001017 


001017 
001262 


001344 
001274 
001272 
162224 


001246 
000042 


162462 
002 


001274 


162202 


162140 
162130 
162120 


001162 





IN UPPER BYTE OF SYSTEM CONTROL 
; VERIFY BITS SET CORRECTLY 


;CRS)*REGISTER EXPECTED DATA 
;(R4)=REGISTER ACTUAL DATA 
;LOWER BYTE WAS AFFECTED? 


s;CHECK FOR ITERATIONS,LOOP 


sTYPE NAME OF TEST 
sCLEAR LAST ERROR PC 
sCLEAR ERROR FLAG 
sUPDATE PASS COUNT 

; ARE WE USING LIGHTS? 
; BRANCH IF WE ARE 

3 TYPE PASCOUNT MESSAGE 
; PRINT PASSCOUNT 

; CONTINUE 

sDISPLAY PASS COUNT 


sCHECK FOR ACT-11 OR DDP 
sIF NOT, CONTINUE TESTING 


; PARAMETERS TO PRINT PASSCOUNT 


CMP #1017, @DHSCR 
BEQ 99$ ;BRANCH IF OK 
MOV #1017, RS 
MOV Q@DHSCR, R4 
HLT 1 
EMT 
99$: SCOPE 
.EOP t/BEGIN/ 
;END OF PASS 
;TYPE NAME OF TEST 
;UPDATE PASS COUNT 
;CHECK FOR EXIT TO ACT-11 
;RESTART TEST 
EOP: TYPE 
MEPASS 
CLR LAST 
CLR ERRFLG 
INC PASCNT 
TST LIGHTS 
BNE 23 
TYPE 
PASTXT 
OcTASC 
PASARG 
3$ 
2$: 
- MOV PASCNT ,LIGHTS 
MOV 9642 ,.R1 
BEQ RESTRT 
RESET 
LOGICAL: JSR PC ,.CRL) 
NOP 
NOP 
NOP 
RESTRT: JMP BEGIN 
PASARG: .WORD i 
-BYTE 6,2 
-WORD PASCNT 
. SCOPE 
;CHECK FOR LOOP ON CURRENT TEST 
sCHECK FOR ITERATION SUPPRESSION 
SCOPER: BIT @SW1i0, @SUR 
BNE 4$ 
is: BIT #SW14, 8SWR 
BNE 3$ 
BIT @SW11,8SWR 
BNE 2$ 
INC LPCNT 
CMP LPCNT, ICOUNT 
BNE 3$ 


SY RRS SESS ENS SAS AN SE A 


SEQ 111 


> Ae SUUDS 
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435 


436 


016676 
016702 
016706 
016712 
016714 
016720 
016722 
016726 
016730 
016732 


016732 
016740 
016742 
016746 
016750 


016750 
016756 
016760 
016764 
016766 
016772 
016776 
017000 
017002 
017006 
017010 


017116 


005067 


032777 
001402 
016716 
000002 


032777 
001055 
021667 
001404 


001156 
001134 
001136 


001130 
001114 


001000 
001106 


020000 
001122 
001114 
001044 


000002 


177001 


000001 


000010 


161662 





162040 


162022 


000754 





2$: 


3$; 
4$: 


. SCOP1 


SCOP 1iR: 


i$: 
.ERROR 


ERRORS : 


1$: 


TYPMSG : 


ERRMSG: 
TYPDAT: 


DATABP : 
RESREG: 


HALTS: 


CLR LPCNT 
CLR ERRFLG 
MOV CSP) ,RETRN 


RTI 

MOV RETRN, (SP) 
RTI 

TST ERRFLG 
BEQ 1$ 

BR 2$ 


;CHECK FOR FREEZE ON CURRENT DATA 
BIT + paaenamae 


BEQ 1 

MOV FREEZ1,(SP) 
RTI 

sERROR HANDLER 

BIT #SW13,9SWR 
BNE HALTS 

CMP (SP),LAST 
BEQ is 

MOV (SP),LAST 
CLR ERRFLG 
SAVOSP 

MOV CSP),R5 
SUB #2,R5 

MOV CRS), R4 
ASL R4 

ASL R4 

BIC #177001,R4 
ADD @ERRTAB.R4 


MOV #1 ,ERRFLG 


TST DATABP 
BEQ RESREG 


TST OSWR 
BPL EXITER 


SEQ 112 


VII UI 


ViVi 


fa 
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437 


438 


439 


017120 
017122 
017126 
017130 


017162 


017162 


017214 


017214 
017220 


011646 
162716 
017616 
006316 
042716 
062716 
017616 
000136 


017605 


117777 


000002 
000710 
002000 
000700 


002 


000002 
000000 


177001 
020542 
000000 


000000 
000002 
000554 


000542 


161634 


000006 


000460 


EXITER: 


1$: 
ERTABO: 


. TRPSRV 


TRPSRV: 


TRPOK: 


. TYPER 


TYPER: 
1$: 


2$: 


- INSTRG 


INSTRG : 


INSTR1: 


MSG: 


1$: 


2$: 


PUSHRO 
V 


;TRAP DISPATCH SERVICE 
;ARGUMENT OF TRAP IS EXTRACTED 


2(SP),RO 
ERRCNT 

+ as 
ESCAPE , (SP) 


6,2 


sAND USED AS OFFSET TO OBTAIN POINTER 


;TO SELECTED SUBROUTINE 


;TELETYPE OUTPUT ROUTINE 


MOV 
AD 


sASCII STRING INPUT ROUTINE 


CSP),-CSP) 
#2,(SP) 
CSP), CSP) 
(SP) 
#177001, (SP) 
#TRPTAB, CSP) 


ac SP), (SP) 
OC SP )+ 


CRS5)+,3TPDBR 
i$ 


8(SP),MSG 
#2,(SP) 


#INBUF ,R4 
#7,R3 
@TKCSR 


1$ 
STKDBR ,CR4) 


CR4)+ 6 #15 
INSTR2 

@TKOBR ,ATPDBR 
aTPCSR 


sGET PC OF RETURN 
;=PC OF TRAP 

;GET TRP 
sMULTIPLY TRAP ARG BY 2 

;CLEAR UNWANTED BITS 

sPOINTER TO SUBROUTINE ADDRESS 
;SUBROUTINE ADDRESS 
;GO TO SUBROUTINE 


SEQ 113 
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017332 


440 017350 


017456 


017460 
017464 
017466 
017472 
017474 
017560 


017502 


017530 


a CS ee 


100375 


000750 


020567 


000015 


000042 
000032 
000032 


000022 


000002 
000013 


INSTRE: 


INSTR2: 
-PARAMS 


PARAMS: 


PARAM: 


i$: 


PARERR: 


LIMITS: 


1$: 


LOLIM: 
HILIM: 


DEVADR: 


INSTR1 


sCONVERT ASCII STRING TO OCTAL 


B 
INSTER 
BR 


(SP),R5 
(R5)+,LOLIM 
(R5)+,HILIM 
CR5)+,DEVADR 
CRS5)+,LOBITS 
CR5)+,ADRCNT 
RS,CSP) 


PARAM1L 


;TEST TO SEE IF NUMBER IS WITHIN LIMITS 


CMP 
BHI 
CMP 
BLO 


BITB 
BNE 


;STORE NUMBER AT SPECIFIED ADDRESS 


0 
0 


DEVADR,.R4 
RS,CR4)+ 
#285 
ADRCNT 

i$ 


SEQ 114 
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441 


442 


017532 
017534 


O1 
017702 


017704 
017706 


017706 


017714 


017740 


000000 
017533 


017601 


016667 


010567 


177770 
000260 


020610 
000042 
000035 


000240 
000023 


000004 





LOBITS: O 
ADRCNT=LOBITS+1 
.OCTASC 


sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


OCTASN: MOV aC SP).R1 
ADD #2,(SP) 
MOV (R1)+,WRDOCNT 
is: MOVB (R1)+,CHRCNI 
MOVB (R1)+,SPACNT 
MOV @CR1i)+, BINWRD 
2$: MOV BINWRD ,R4 
MOVB CHRCNT,RS 
MOV #TEMP,RO 
3%: MOV R4,R3 
BIC #177770,R3 
ADD #260 ,R3 
MOVB R3,CRO)+ 
ASR R4 
ASR R4 
ASR R4 
DEC RS 
BNE 3$ 
MOV #MDATA,R3 
4$: MOVB -C(RO),CR3)+ 
DECB CHRCNT 
BNE 4$ 
TSTB SPACNT 
BEQ 6$ 
5$: MOVB $240 ,(R3)+ 
DECB SPACNT 
BNE 5$ 
6$: CLRB (R3) 
TYPE 
MDATA 
C WROCNT 
BNE i$ 
RTI 
WRDOCNT: O 
CHRCNT: O 
SPACNT =CHRCNT+1 
BINWRD: O 
. SAVREG 
sSAVE PC OF TEST THAT FAILED AND RO-R5S 
000164 SVO5P: MOV 4(SP), SAVPC 
;SAVE RO-RS 
SVOS5: MOV RS ,SAVRS 


MOV RO, SAVRO 


SEQ 115 





SEQ 116 
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443 


TLVL > 


445 





RSOS: MOV SAVRO,.RO 
MOV SAVR1.R1 
MOV SAVR2,R2 
MOV SAVR3,R3 
MOV SAVR4,R4 
Ho SAVRS,RS 
POINT *+t/DHSCR,DHNRC,DHLPR,DHBA,DHBC,DOHBAR, DHBCR,DHSSR, DHSLR, DHRVEC ,DHRLVL , OHT H / 
; INDIRECT POINTERS + Wenn. 
TKCSR: 177560 
TKDBR: 177562 
TPCSR: 177564 
TPDBR: 177566 
. IRP & <DHSCR ,DHNRC , DHLPR , DHBA, DHBC , DHBAR , DHBCR ,DHSSR ,DHSLR ,OHRVEC, DHRLVL ,DHTVEC, OM 
: 0 
.ENDM 
DHSCR: O 
DHNRC: O 
DHLPR: O 
DHBA: 0 
DHBC: 0 
DHBAR: O 
DHBCR: O 
DHSSR: O 
DHSLR: O 
DHRVEC: 0 
DHRLVL: O 
DHTVEC: 0 
DHTLVL: 0 
. VARIA 
;PROGRAM VARIABLES 
ERRFLG: 0 sERROR FLAG 
PASCNT: 0 ;PASS COUNT 
ERRCNT: O sERROR COUNT 
RETRN: O ;SCOPE RETURN ADDRESS FOR TEST LOOPING 
SCAPE: 0 sADDRESS FOR ERROR ESCAPE 
FREEZ1: 0 sDATA LOOPING RETURN ADDRESS 
ICOUNT: 0 sITERATION COUNT FOR TEST IN PROGRESS 
LPCNT: 0 ;NUMBER OF aren ee THIS TEST 
SAVRO: 0O sRO SAVE 
SAVRi: 0 sRi SAVE AREA 
SAVR2: 90 3R2 SAVE AREA 
VRS: O 3sR3 SAVE 
SAVR4: O 7R4 SAVE AREA 
SAVRS: 0 7R5 SAVE AREA 
SAVSP: 90 SSTACK POINTER SAVE AREA 
vPc: 90 ;CALLING ROUTINE SAVE AREA 
INIFLG: 0 :PROGRAM lant FLAG 
STFLG: 0 :PROGRAM START FLAG 
LAST: 90 ;LAST ERROR PC 
. IRP B <> 








me 





CZDHA-D MACRO VO4.00 27-JUN-85 12:46:01 PAGE 17-95 


-— 


446 020110 


447 


020110 


157674 
177742 
020146 


177724 


020110 
000340 


157662 


157630 
157574 


-MSG 
0i2 MTITLE: 
061 


123 
124 
040 
107 


040 
123 
015 


126 MVECTO: 


RESTAR: 


PF TAB: 





sENTER HERE ON POWER FAILURE 


RO,-CSP) 
Ri, -(SP) 
R2, -(SP) 
R3, -(SP) 
R4,-(SP) 
RS, -(SP) 
24, -(SP) 
SP ,SAVSP 


@RESTART ,24 


sSAVE RO-RS ON PROCESSOR STACK 


sSAVE STACK POINTER 
;SET UP FOR POWER UP TRAP 
s;HALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


SAVSP, SP 
CSP)+,R5 


sRESTORE STACK POINTER 
sRESTORE RO-RS 


;SET UP FOR POWER FAILURE 


RETRN 
t/DH1i STATIC LOGIC TEST/,*t/CZDHA-DO/ 
€15><12><12>/DH1i1l STATIC LOGIC TEST /<15><i2> 


-ASCIZ 


-ASCIZ 


¢15><12>/VECTOR ADDRESS-/ 





SEQ 117 


uu 
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020320 105 103 124 


020337 015 012 103 MREGAD: .ASCIZ <15><12>/CONTROL REGISTER ADDRESS-/ 


020373 040 040 077 MQM: -ASCIZ / ?/ 
020377 015 O12 000 MCRLF: .ASCIZ <15><12> 
020402 040 040 120 MPFAIL: .ASCIZ / POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


020467 015 012 103 MEPASS: .ASCIZ <15><12>/CZDHA-DO/ 


020502 015 012 120 PASTXT: .ASCIZ <15><12>/PASS COUNT = / 


020522 015 012 122 MR: -ASCIZ <15><12>/R/ 
020526 015 012 124 MISTPC: .ASCIZ <15><12>/TEST PC-/ 


;TABLE OF POINTERS FOR TRAP DECODING 


Les ci eee 
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439 


450 


464 


455 


020542 
020544 


020564 
020576 


020610 
020622 


016632 
017214 
017534 
017246 
017340 
017350 
017706 
017746 

16732 


TRPTAB: 


EM1: 


SCOPER 
TY 


sBUFFERS FOR INPUT-OUTPUT 


0 
0 


0 


sTABLE OF POINTERS TO ERROR MESSAGES AND DATA 


EM4 
DT1 
EMS 


oT1 
-ASCII /REGISTER DID NOT RESPOND/ 


-ASCIZ 


<15><12>/ADDRESS/ 


-ASCII /SYSTEM CONTROL REGISTER ERROR/ 


SEQ 119 


CZOHA-D 


466 


467 


468 


470 


471 
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020741 105 122 040 

020744 105 122 122 

020747 117 122 

020751 015 O12 105 .ASCIZ 
020754 130 120 040 

020757 040 040 040 

020762 040 122 105 

020765 103 040 040 

020770 040 040 040 

020773 101 504 104 

020776 122 105 123 

021001 123 Oco 

021003 114 111 116 EMe: .ASCIT 
021006 105 040 120 

021011 101 122 101 

021014 115 105 124 

021017 105 122 040 

021022 122 105 107 

021025 111 123 124 

021030 105 122 040 

021033 105 122 122 

021036 117 122 

021040 015 012 105 -ASCIZ 
021043 130 120 040 

021046 040 040 040 

021051 040 122 105 

021054 103 040 040 

021057 040 040 040 

021062 101 104 104 

021065 122 105 123 

021070 123 000 

021072 102 122 105 EMS: -ASCIT 
021075 101 113 040 

021100 103 117 116 

021103 124 122 117 

021106 114 040 122 

021111 105 107 ili 

021114 123 124 105 

021117 122 040 105 

021122 122 122 117 

021125 122 

021126 015 012 105 -ASCIZ 
021131 130 120 040 

021134 040 040 040 

021137 040 122 105 

021142 103 040 040 

021145 040 040 040 

021150 101 104 104 

021153 122 105 i23 

021156 123 000 

021160 123 111 114 EM4: -ASCII 
021163 117 040 123 

021166 124 101 124 

021171 125 123 040 

021174 122 105 107 

021177 111 123 124 

021202 105 122 040 


vtw@ ic 


<15><12>/EXP REC ADDRESS/ 


/LINE PARAMETER REGISTER ERROR/ 


¢15><12>/EXP REC ADDRESS/ 


/BREAK CONTROL REGISTER ERROR/ 


<15><12>/ExP REC ADDRESS/ 


“SILO STATUS REGISTER ERROR/ 
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021205 105 122 122 


021210 117 122 
472 021212 015 012 105 ~ASCIZ <15><12>/EXP REC ADDRESS/ 


021215 130 120 040 
021220 040 040 040 
021225 040 122 105 


473 021244 115 101 123. EMS: -ASCII /MASTER CLEAR ERROR/ 


474 021266 015 Ole 105 »-ASCIZ <15><12>/EXP REC ADDRESS/ 


475 EVEN 
476 021320 000001 DTO: 1 
477 021322 000 BYTE 6,0 
478 021324 020074 SAVRS 
479 021326 000003 OT1: 3 
480 021330 006 002 BYTE 6, 
481 021332 020074 SAVRS 
482 021334 002 BYTE 6, 
483 021336 020072 SAVR4 
484 021340 006 000 BYTE 6,0 
485 021342 020070 SAVR3 
486 021344 -ENDCOD 
021344 000000 OD: 0 
487 000001 


eee 
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SYMBOL TABLE 


ADRCNT= 017533 ERTABO 017154 RETRN 020050 T104 010742 T25 003524 
BEGIN 001306 ESCAPE 020052 RSOS 017746 T105 011042 T26 003612 
BINWRD 017704 EXITER 017132 SAVPC 020100 T106 011142 T27 003700 
BITC = 000020 FREEZ1 020054 SAVRO 020062 T107 011246 T3 001570 
BITCLR= 000077 HALTS 017112 SAVR1 020064 Til 002340 T30 003766 
BITX = 000000 HILIM 017526 SAVR2 020066 T110 011352 T31 004042 
BITOO = 000001 ICOUNT 020056 SAVR3 020070 T111 011456 T32 004116 
BITO1 = 000002 INBUF 020564 SAVR4 020072 T112 011562 T33 004172 
BITO2 = 000004 INIFLG 020102 SAVRS 020074 T113 011666 134 004246 
BITCS = 000010 INSTER= 104404 SAVSP 020076 T7114 011772 T35 004322 
BITO4 = 000020 INSTR = 104403 SAVOSP= 104406 T115 012076 T36 004452 
BITOS = 000040 INSTRE 017340 SCOPE = 104400 7116 012202 137 004602 
BITO6 = 000100 INSTRG 017246 SCOPER 016632 T117 012306 T4 001664 
BITO7 = 000200 INSTR1 017260 SCOPE1= 104410 T12 002420 T40 004732 
BITO8 = 000400 INSTR2 017346 SCOPiR 016732 T120 012412 T41 005022 
BITO9 = 001000 LAST 020106 SPACNT= 017703 T121 012516 T42 005112 
BIT10 = 002000 LIGHTS 001002 STACK = 021544 T122 012622 T43 005202 
BIT1i1 = 004000 LIMITS 017460 START 001004 T123 012726 T44 005272 
BITi2 = 010000 LOBITS 017532 STFLG 020104 7124 013032 T45 005362 
BIT13 = 020000 LOGICA 016610 SVO5 017714 T125 013136 T46 005452 
BIT14 = 040000 LOLIM 017524 SVOSP 017706 T7126 013242 147 005542 
BITiS = 100000 LPCNT 020060 SWR 001000 T127 013346 T5 001760 
CBIT = 000020 MCRLF 020377 SWOO = 000001 T13 002500 TS50 005632 
CCRBIT= 077777 MDATA 020610 SWO1 = 000002 T130 013452 TS1 005722 
CHRCNT 017702 MEPASS 020467 SWO2 = 000004 T131 013556 TS2 006012 
CLRBIT= 000077 MPFAIL 020402 SWOS = 000010 Ti32 013662 T53 006102 
DATABP 017106 MQM 020373 SWO4 = 000020 T133 013766 T54 006172 
DEVADR 017530 MR 020522 SWOS = 000040 T7134 014072 TS5 006262 
DHBA 020016 MREGAD 020337 SWO6 = 000100 T135 014176 T56 006352 
DHBAR 020022 G 017262 SWO8 = 000400 T7136 014302 157 006442 
DHBC 020020 MTITLE 020260 SWO9 = 001000 1137 014406 T6 002054 
DHBCR 020024 MTSTPC 020526 SW10 = 002000 T14 T60 006532 
DHLPR 020014 MVECTO 020315 SW1i = 004000 T140 014512 T61 006622 
DHNRC 020012 = 000001 SWi2 = 010000 T7141 014616 T62 006712 
DHRLVL 020034 OCTASC= 104402 SWi3 = 020000 T7142 014722 T63 007002 
DHRVEC 020032 OCTASN 017534 SW1i4 = 040000 T143 015026 T64 007072 
DHSCR 020010 PARAM = 104405 SW15 = 100000 T144 015132 T65 007162 
DHSLR 020030 PARAMS 017350 TEMP 020576 7145 015236 T66 007252 
DHSSR 020026 PARAM1 017400 TKCSR 020000 T146 015352 T67 007342 
DHTLVL 020040 PARERR 017454 TKDOBR 9020002 T147 015466 7 002150 
DHTVEC 020036 PASARG 016624 TPCSR 020004 TiS 002644 T70 007432 
DTO 021320 PASCNT 020044 TPDBR 020006 T150 015602 T71 007522 
DT1 021326 PASTXT 020502 TRPOK 017174 T1i51 015716 T72 007612 
EMO 020652 PFAIL 020110 TRPSRV 017162 TiS2 016032 T73 007702 
EM2 020714 PFTAB 020250 TRPTAB 020542 TiS3 016146 T74 007772 
EM2 021003 POPRO = 012600 TYPDAT 017072 T154 016262 T?5 010062 
EM3 021072 POP1SP= 005726 TYPE = 104401 Ti55 016406 T76 010152 
EM4 021160 POP2SP= 022626 TYPER 017214 T16 002732 T77 010242 
EMS 021244 PS = 177776 TYPMSG 017050 T17 003020 VEC1 001164 
ENDCOD 021344 PUSHRO= 010046 T1 001400 T2 001474 VEC2 001174 
EOP 016532 PUSH1S= 005746 T10 002244 T20 003106 WROCNT 017700 
ERPCNT 029046 PUSH2S= 02 T100 010342 T21 003174 X = 000000 
EFRFLG 020042 RESREG 017110 T101 010442 T2e 003262 XBIT = 000000 
ERRMSG 017070 RESTAR 020146 T102 010542 T23 003350 XN = 000154 
ERRORS 016750 RESTRT 016620 T103 010642 T24 


003436 Y = 000011 
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SYMBOL TABLE 


. ABS. 021346 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 20736 WORDS ek PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 P 
CZDHAD .BIN, CZDHAD. SEQ=CZDHAD .DOC ,DHMACA.MAC,CZDHAD .P11 


SEQ 123 


